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General Listing and Description of Primary ADS Da ta Types . 
In - Input device" n of the ADS 

Xn - sensory "reading" of input device In (may be 

proprioceptive ) 
XRFn - a specified range/purview of In 

RF - a rule that is "true" if Xn is included in XRFn 
BF - a set of RF's identifying a "doing" 
RFs - RF about the self ADS 

RFsB - an RFs identifying a doing of the ADS 
RFsM - an RFs identifying a "metabolic" status, of the ADS 
RFsE - an RFs identifying an "emotion" of "feeling" of the ADS 
BFs - a set of RFs's identifying the doings or metabolism or 

feelings of the self ADS 
RFM - a unique marker referring to an RF 
BFM - a unique marker referring to a BF 

PFM - an arbitrary unique marker to be used to refer to a PF 
Rx - a "concrete" set of "sensed". RFM's referring to a sensed 

"concrete" object 
Ri - an "abstract" set- of RFM's 

Px - a "concrete" set of allocated PFM's plus "concrete" • RFM- 
set 

Pi - a set of PFM's and RFM's referring to an "abstract 

object", often a single PFM 
Ris - the "self" object 

r - a specified spacio- temporal relationship, including the 
null relation 

SE - a single-relation abstract situation, i.e., an r between 
.among abstract objects, including a self object/ thus 
SE = r (Ris, Pil, P±2, . . ) 
Si - a Boolean set .of SE ' s defining an abstract situation 
dsd - an "incremental" action decision for a self -object 
Lx - a location of a (usually-concrete) object, i.e., an Rx/Px 
Vx - a vector of a (usually-concrete) object, i.e., an Rx/Px 
Ex - an "event", for example described as a data row: 

Rx/Px. . . Lx . . . Vx . . . BF 
Sx - a concrete situation described as a set of Ex's 
PF - a "hierachied" rule that if (from the viewpoint of the 

tested object) the tested concrete situation (Sx) is included 
in the abstract situation (Si) of the rule-, then DO the 
incremental action decision of the rule (dsd) , each set of 
hierarchied PF's associated with an object being adequate for 
incremental simulation 
SxC - the "now" Sx of an ADS, including access to the PF's 

referred to by the PFM's of the Px ' s of the Ex's 
SxTn - (SxTl=SxC) from n=2, the nth incremental computation (in 

simulation) of the predicted situation of an ADS 
Sip - an abstract situation (Si) of the self ADS which 
identifies a (hierarchied) problem p 
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Sigp - an abstract situation (Si) of the self ADS which 

identifies a (hierarchied) subgoal g attached to the problem 

? a hierarchied default real-time action decision attached 
to an abstract situation of the self ADS 

- a hierarchied trial (to try to get to a later subgoal 
without incurring a worse problem) incremental action 
decision attached to an abstract situation of the self ADS 

- a "coordinated" real-time action decision for the ADS 
equal to (based on) a "successful" dTd (trial incremental 
decision) 

- a plan -(a hierarchied set of subgoals g) , each subgoal g 
having associated hierarchied dD's and dTd's 

- the nth subgoal of a plan to solve the problem p 

- one of the "look-for" Pi's (abstract objects) of the next 
Sigp (of the next subgoal g) , i.e., the next Gpn 

- one of the "look-for" RF's generated. by finding (from a 
list of known concrete objects with their associated RF 1 s) 
concrete objects including a current Pil and heurist ically- 
selecting RF's to look for 
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DATA FLOW IN AUTONOMOUS DECISION SYSTEM 
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FIG . 6 

EXAMPLE COMPUTATION FLOW FOR TESTING WHETHER A GIVEN 
CONCRETE SITUATION (Sx) IS INCLUDED IN A GIVEN ABSTRACT 
SITUATION (Si), ONE SUB -EVALUATION (SE) AT A TIME: 



Definition Reminders: 

(Pxl= [PFM W PFM 2/ . . .PFM n ;RPM 1# RPM a . . . RFM n ] . . . Lx x . . . Vx x . . .BFM'sJ 
(Px2= [PFM 1# PFM 2/ . . . PFM n ;RFM 1; RFM 2 . . . RFM n ] . . . Lx 2 . . . Vx 2 . . .BFM's 2 ) 
Sx = ( . ) 

( . . > 

(Pxn=[PFM w PFM 2 , . . . PFM n ; RFM X , RFM 2 . . . RFMj . . . Lx n . . . Vx n . . .BFM's n ) 

SE= r (Pil , Pi2 , . . . Pin) where any abstract thing (Pi) may- 

specify one or more doings (BFM's) and 
where each Pi is a set of PFM's and a 
set of RFM's 



Computation Flow: 



IS Pxl INCLUDED IN Pil? (i.e., 
IS Pil A SUBSET OF Pxl? BFM'S? 



IS Pi2 A SUBSET OF Pxl? BFM'S? 



IF YES, Pxl MAY STAND FOR Pil 
IN THE RELATION r (PROVIDED 
THE BFM'S OF Pil, IF ANY, ARE 
A SUBSET OF THE BFM'S OF Pxl) 

IF YES, Pxl MAY STAND FOR Pi 2 



IS Pin A SUBSET OF Pxl? BFM'S? 
IS Pil A SUBSET OF Px2? BFM'S? 



IS Pin A SUBSET OF Px2? BFM'S? IF YES, Px2 MAY STAND FOR Pin 



IS Pi 



IF "YES, Pxl MAY STAND FOR Pin 
IF YES, Px2 MAY STAND FOR Pil 



A SUBSET OF Pxn? BFM'S? IF YES, Pxn MAY STAND FOR Pil 



IS Pin A SUBSET OF Pxn? BFM'S? 



IF YES, Pxn MAY STAND FOR Pin 



FOR ALL PERMUTATIONS OF Px ' S STANDING FOR' Pi' S, 
RESPECTIVELY, COMPUTE WHETHER THE r IS TRUE (FROM THE VIEWPOINT 
OF THE Lx/Vx OF THE- APPROPRIATE "SELF" ROW OF THE Sx, I.E., THE 
APPROPRIATE Px) CONSIDERING THE Vx'S AND Lx'S OF OTHER Px'S 
STANDING FOR THE Pi ' S OF THE RELATION r. 

FOR ALL "TRUE" SUCH RELATION COMPUTATIONS, THERE IS SE 
INCLUSION. OTHERWISE, NOT. [FOR Si INCLUSION DETERMINATION, THE 
BOOLEAN COMPUTATIONS AMONG THE SE'S. OF THE Si MUST BE DONE.] 
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^This^rthe main brain code. It determines the incisionals for all 

decision making. __ - 

^/25/9?7Rick added support for Story telling data using lecture mode 
and added Dans extra parm in the relations call. 
04/10/91 - Changed method of testing for body . relations Now any Row 
can do a test for HHT' s by specifying itself as the 1st 
ri ri2=to rfs that refer to HHT regs, and relop=FEEL . 
Added code to continue scanning SE's, even if current SE 
fails when the NextOp is BOR . 

Added code to allow to handle "sortof" of invalid SE s. 
If your SE spec's an RI that cant be found, then it was 
assumed FALSE. Now, if the preceeding NextOp is BNOT, then 
that boolean will be applied, and the SE will become TRUE . 



) Unit Si_mod; 



Owner: TFL 



05/13/91 
07/29/91 



= Copyright (c) 1989-1991 Anthrobotics 



Upcoming changes to SIMOD, because of TFL. 



° Onehit will be replaced with Nhits. This allows for dsd averaging. 

(this can be up to 20, the size of the datalist buffer.) 
° Relative row/relrownum need to be expanded in SxRow to n hits. 



( } Interface { 

Uses NewTypes, Types, Lists, Relation, SiStuf f ^Da tLis t^Sxs turf ; 
Const MaxSiHits : Integer = 1/ 



^PROCEDURE Situation_Inclusion (Var SiListToTest 
set by Rxs} 

Var SisThatHit 

that hit) 

Var TheSx 
Var Sxlndex 

Def aultRow 



,S1,U11 , UdUDlOL / l3^0UWJ-i. , 

(Tells how many SIStatuss to allow) 



: DataList; {what Sis to test; 

i DataList; (Returns list of Si 

: ListPtr; 

: SxIndexArray; 

: SxRowPtr) ; 



( } Implementation { 

Uses RxStuf fl , RiStuff, Strategy; 

Const BreakSi : Word = 0; (used for debugging only!) 



( Situation Methods 

PROCEDURE Situation_Inclusion (Var SiListToTest 
set by Rxs) 

Var SisThatHit 
that hit} 

Var TheSx : ListPtr; 

Var Sxlndex : SxIndexArray; 
Def aultRow : SxRowPtr) ; 



} 



I 

DataList; (What Sis to test; 
DataList; (Returns list of Si 



Purpose : 



This is it. The main cheese, where men are men and sheep are scared. 
This is where all the brain inciusionals occur. 

Be in awe, mortal. 



Var SxRowPtrl, 
SxRowPtr2 
CurrentRI 
ValidRow 
ANotSE, 
SIFailed , 
SEPassedDe fault , 
SEPassed , 
SIStatus 
CurrentSi 
SiNumber 
SENum : 
SxRowCount 1 
SxRowCount 2 
PrevHitRxs 
PrevHi tRows 



SxRowPtr ; 

Array [0 . .1] of RiPtr ; 
Boolean ; 



Boolean ; 
SiPtr ; 
Byte ; 
Integer- 



Byte ; 
Array [0. 
Array [ 0 . 



(Goes TRUE once we know weve failed.) 
(The boolean status of the SE's so far.) 



1,1. .MaxSesPerSI] of SxRowPtr; 
1 , 1 . . MaxSesPerSij of Integer; 



FIG . H\-2 



, — > 

PROCEDURE Chec k _A*d_SeC_PrevUsed_Ris(Var TheRow: SxRowPtr; 



RiNum, 
RiCol, 
SxRowNum : Integer) ; 



Var Col , Row : Integer; 
Begin 



PrevHitRows [RiCol , SENum] : =SxRowNum; 
PrevHitRxs [RiCol , SENum] : =TheRow; 
For Row:=l to SENum do 

F °If °cirrentSI" . SiRec . Ses [Row] . TheRis [Col] =RiNum then 
TheRow := PrevHitRxs [Col , Row] ; 

PrevHitRows [RiCol , SENum] : =PrevHi tRows [Col , Row] ; 
PrevHitRxs [RiCol , SENum] -TheRow; 
exi t ; 

end; 

end; {check and set prevused ris} j 

FGNCTION^xRowlinlsubEva^ Integer; Var TheSxRow : SxRowPtr; Var 

Row: Byte): Boolean; 
Begin 

SxRow_In_SubEval : =True ? 
TheSxRow : =De fault Row; 
If RiNumoSelfRI then 

Be9in TheSxRow SxRowPtr (TheSx" . Find_Element ( Sxlndex [Row] .IndexPos)); 

If RiNumoAnyRi then ^ . , D . fD . rrtin 

SxRow_In_SubEval : =TheSxRow A . Ma t ches_Ri (CurrentRi [RiCol] ) 

end 

else If (Row>l) and ( RiNum=Self Ri ) then 
SxRow_In_SubEval : =False 
end; (SxRow in subeval) j 

FUNCTION* Find^Ri ^RiNum"^ t SkipRow : Integer; Var SxRow: SxRowPtr; Var Row: 
Byte) : Boolean; 

Var Hit : Boolean; 
Begin 

Hit:=False; 

If RiNumoAnyRi then 

While (Not Hit) and (Row<TheSx .Count) do 

Begin 

Inc (Row) ; 

If RowoSkipRow then 

Begin . ~ \ 

Hit : =SxRow_in_SubEval (RiNum, RiCol , SxRow, Row) ; 

If Hit then 

Check_And_Set_PrevUsed_Ris (SxRow, RiNum, RiCol, Row) 
else SxRow:=Nil 

end 

else SxRow :=Nil; 

end 
else 

Begin 

Hit : =True ; 

Row : ^TheSx^ . Count ; 

SxRow : =SxRowPtr (TheSx A . Find_Element (Row) ) ; 

end ; 
Find_vRi : -Hit ; 

end; (find ri} j 

PROCEDURE Combine_Boolean; 
Begin 

With CurrentsT.SIRec do 
Begin 

If SENum>l then with Ses [SENum-1] do 
Case NextOp of 
BNot , 

BAnd : SIStatus := SIStatus and SEPassed; 
BXor : SIStatus := SIStatus Xor SEPassed; 
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BOr : SIStatus := SIStatus or SEPassed; 

S 3 (Sussed) : then 3 Def aultRow* . Set_Rel_Row (SxRowPtr2) , 
«F>i"S!"siStatus-Falae) and (Ses [SENum] . NextOp = BAnd) ; { lookahead 

boolean shortcut} 
end / 

end; (Combine boolean} i 

( 

B69inFOr S^i^^^^SiSSSbJ^ then (loop for each SI until you 
have a hit ... } 

Be9in if SiListToTest. Dree. Data [SiNumber] -BreakSI then { DEBUG) 
SENum : =0 ; 

SiPtr<SiLi«!!^ < Get c ^rent SI > 

SIStatus" := True; . {Until proven guilty...} 
SIFailed := False; 

FillChar( PrevHitRxs, SizeOf ( PrevHitRxs) , 0 ); (Clear PrevHitRxs} 
FillChar( PrevHitRows, SizeOf (PrevHitRxs) , 0 ); 

With CurrentSI A .SIRec do f - 1c \ 

Repeat (Until no more subevals, or SI fails.) 

Inc (SENum) ; 

SsE?"(SENum;i) and (This handles special case 

where se is true if} ( SEs [SENum _ 2 ] . N extOp=BNot ) ; (no 2 RIs hit, but nextop = 
NOT; (SE true) } 

SEPassedDef ault : =ANotSE; 

CurrentRno?^RiPtr(RiList.Find_Element (Ses [SENum] .TheRis [0] ) ) ; 

With Ses [SENum] do - 

Repeat (find riO loop) 

If Find_RI (TheRis [0] , 0, 0 f SxRowPt rl , SxRowCount 1 ) then 

Begin . . > 

SxRowCount2 : =0 ; (search from top of sxlist) 

Repeat (find ril loop) rn i \ 

CurrentRi [1] =RiPtr (RiList . Find_Element (TheRis [1] ) ) ; 
If Op=IsFeeling then 
Begin 

SxRowCount2:=TheSx .Count; 

SxRowPtr2 : sSxRowPtrl ; . 

SEPassed: = (SxRowPtrl A .Matches Ri (CurrentRi [1] ) ) ; 

If ANotSE then 

SEPassed:^ (Not SEPassed); 
SEPassedDef ault : =SEPassed; 
end 
else 
If 

Find_RI (TheRis [ 1] , 1 , SxRowCount 1 , SxRowPtr2 , SxRowCount2 ) then • 

BS SEPassed:= (Relations [Op] (SxRowPtrl * , SxRowPtr2 * , 

DefaultRow\0 P Parm)); ^ ^ SEPassed : =Not SEPasse d; 

SEPassedDef ault : =SEPassed; 
end 

else If SxRowCount2>=TheSx. .Count then 
SEPassed : =SEPassedDe fault ; 
Until (SEPassed) or ( SxRowCount 2 >=TheSx" . Count ) ; 

end 

else SEPassed : ^SEPassedDef ault ; 
Until (SxRowCountl>«TheSx A .Count) or (SEPassed); 

Untir^FSi^dr^r {means this SI has def inately failed.} 

(Ses [SENum] . NextOp=NoOp ) ; {we hit last SE in the Si) 
If (SIStatus) and 

(SisThatHit . Appendl t em ( 1 , SiNumber) ) then 
exit; 

end ; . , , 

end; {Situation inclusional) (si mod unit) 
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STEPS IN A COMPUTER PROGRAM IMPLEMENTING 
NATURAL LANGUAGE AND STORY PRODUCTION 
IN AUTONOMOUS DECISION SYSTEMS 



PROVIDING COMPUTER PROCESSING MEANS FOR PROCESSING DATA 



PROVIDING STORAGE MEANS FOR STORING DATA ON A STORAGE MEDIUM; 
WHEREIN SUCH DATA COMPRISES NON- LINGUISTIC DISCRETE DATA-TYPES 
AND CONFORMING TO EACH OF SUCH DISCRETE NON -LINGUISTIC DATA- 
TYPES A SET OF NON -LINGUISTIC DISCRETE DATA ELEMENTS 



PROVIDING FOR INPUT INFORMATION ABOUT CURRENT CIRCUMSTANCES OF 
THE HUMANOID AUTONOMOUS DECISION SYSTEM 




r 


PROVIDING FOR OUTPUT SIGNALS 
HUMANOID AUTONOMOUS DECISION 


FOR IMPLEMENTING DECISIONS OF THE 
SYSTEM 



3 



PROCESSING DATA REGARDING "SELF" TO PROVIDE AT LEAST ONE 
"SELF" REPRESENTATION 



PROCESSING DATA REGARDING CURRENT CIRCUMSTANCES TO PROVIDE A 
FIRST NON-LINGUISTIC STRUCTURED » SELF" -S I TUATION 
REPRESENTATION 



INITIATING AND STORING DATA REGARDING A SET OF HIERARCHICALLY- 

ORGANIZED , RELEVANT, NON-LINGUISTIC RELATIONAL "SELF"- 

S I TUATIONS . 



PROCESSING DATA TO DETERMINE INCLUSIONS OF A SUCH FIRST NON- 
LINGUISTIC STRUCTURED "SELF" -SITUATION WITHIN SUCH NON- 
LINGUISTIC RELATIONAL "SELF"-SITUATIONS- TO DETERMINE ANY 
RELEVANCE OF SUCH FIRST STRUCTURED "SELF"-SITUATION TO A SUCH 
"SELF" — 
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, A : 

' WHEREIN SUCH DATA REGARDING SUCH SET OF HIERARCHICALLY- 
ORGANIZED, RELEVANT, NON-LINGUISTIC RELATIONAL "SELF"- 
SITUATIONS INCLUDES DATA REGARDING A SET OF 
HIERARCHICALLY-ORGANIZED PROBLEM RELATIONAL "SELF"- 
SITUATIONS, AND, IN ASSOCIATION WITH ESSENTIALLY EACH OF 
SUCH PROBLEM RELATIONAL "SELF"-SITUATIONS , A SET OF 
HIERARCHICALLY-ORGANIZED PLAN RELATIONAL "SELF"- 

SITUATIONS ; 

' * — 

INITIATING AND STORING DATA REGARDING RESPECTIVELY LINKING 
ESSENTIALLY EACH SUCH DISCRETE DATA-TYPE OF SUCH HUMANOID 
AUTONOMOUS DECISION SYSTEM WITH A RESPECTIVE WORD/PHRASE 
CATEGORY OF A FIRST NATURAL LANGUAGE 



INITIATING AND STORING DATA REGARDING RESPECTIVELY LINKING 
SELECTED WORDS/PHRASES OF EACH SUCH LINKED WORD/PHRASE 
CATEGORY OF SUCH FIRST NATURAL LANGUAGE WITH RESPECTIVE SUCH 
DISCRETE DATA ELEMENTS OF EACH SUCH DISCRETE DATA-TYPE SO 
LINKED WITH A SUCH LINKED WORD/PHRASE CATEGORY 



PROCESSING DATA REGARDING A FIRST COMMUNICATION TO BE MADE BY 
SUCH HUMANOID AUTONOMOUS DECISION SYSTEM TO TRANSFORM A 
SPECIFIED SET OF NON-LINGUISTIC DATA ELEMENTS INTO A SUCH 
FIRST COMMUNICATION IN SUCH FIRST NATURAL LANGUAGE, COMPRISING 

, _ — 

(1) PROCESSING DATA REGARDING IDENTIFYING WHICH OF SUCH 
DISCRETE DATA ELEMENTS OF SUCH DISCRETE DATA-TYPES IS TO 
FOR M PART OF SUCH FIRST COMMUNICATION 

, T , — 

(2) PROCESSING DATA REGARDING SELECTING NATURAL -LANGUAGE 
SNIPPETS FOR POINTING TO THE SUCH CATEGORIES OF SUCH 
NATURAL- LANGUAGE CORRESPONDING TO WHICHEVER OF SUCH 
DISCRETE DATA- TYPES INCLUDES EACH SUCH. DISCRETE DATA 
ELEMENT WHICH IS TO FORM PART OF SUCH FIRST COMMUNICATION 

I 

(3) PROCESSING DATA REGARDING SELECTING A WORD/PHRASE OF 
SUCH NATURAL- LANGUAGE CORRESPONDING TO EACH SUCH DISCRETE 
DATA ELEMENT WHICH IS TO FORM PART OF SUCH FIRST 

COMMUN I CAT I ON 



▼ 



l2/£>2 



FIGd 9A-3 



, i 

(4) PROCESSING DATA REGARDING ■ PRODUCING FROM THE GRAMMAR 
PRACTICES OF SUCH NATURAL LANGUAGE AND FROM SUCH SNIPPET 
SELECTIONS AND FROM SUCH WORD/PHRASE SELECTIONS SUCH 
FIRST COMMUNICATION IN SUCH NATURAL LANGUAGE 

; A : : 

INITIATING AND STORING DATA REGARDING, IN ASSOCIATION WITH 
EACH OF SUCH RELEVANCE SELF-RELATIONS, A SET OF 

HIERARCHICALLY-ORGANIZED "SELF" TRIAL DECISIONS 



PROCESSING DATA REGARDING SUCH "SELF" TRIAL DECISIONS TO 
PROVIDE DATA REGARDING, WHEN A SUCH RELEVANCE SELF-RELATION 
HAS INCLUDED A SUCH SPECIFIC CIRCUMSTANCE, A CURRENT . SELECTED 
SUCH "SELF" TRIAL DECISION 

I 

PROCESSING DATA REGARDING USING SUCH RELEVANCE MEANS TO 
DETERMINE THE RELEVANCE OF SELECTED AMENDED STRUCTURED- 
SITUATIONS ARISING BY SIMULATION FROM USING A SELECTED SUCH 
"SELF" TRIAL DECISION FOR THE "SELF" OBJECT WITHIN THE THEN 
SUCH SPECIFIC CIRCUMSTANCE , , 



I 



PROCESSING DATA REGARDING SELECTING, DEPENDING UPON THE THEN 
SPECIFIC RELEVANCES UPON OPERATION OF SUCH TRIAL-DECISION- 
TESTING MEANS , A SUCH "SELF" TRIAL DECISION AS A THEN SELF- 
DECISION OF SUCH INTELLIGENT SYSTEM 


' 1 


r 


ACQUIRING AND STORING, WHEN SUCH FIRST COMMUNICATION IS TO BE 
THE TELLING OF A "TRUE" AND "INTERESTING" "PERSONAL HISTORY" 
STORY ABOUT THE EXPERIENCES OF SUCH HUMANOID AUTONOMOUS 
DECISION SYSTEM, SEQUENTIAL DATA FOR USE IN SUCH TELLING, 
COMPRISING 






r 




(1) FOR USE IN A FIRST STORY ELEMENT OF SUCH STORY, 
PROCESSING DATA, WHEN A FIRST SELECTED LEVEL OF A SELF- 
PAIN SIGNAL HAS BEEN ATTAINED BY SUCH HUMANOID AUTONOMOUS 
DECISION SYSTEM, REGARDING FIRST DATA ABOUT A CURRENT 
TIME AND A CURRENT PLACE AND A "CONCRETIZED" CURRENT 
PROBLEM RELATIONAL " SELF" -SITUATION TO PROVIDE DATA 
REGARDING THE CONCRETE OBJECTS OF A THEN CURRENT 
STRUCTURED " SELF " -SITUATION WHICH ARE INCLUDED IN SUCH 
CURRENT PROBLEM RELATIONAL " SELF »- SITUATION 
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(2) FOR USE IN A SECOND STORY ELEMENT OF A SUCH STORY, 
PROCESSING DATA, WHEN A SUCH THEN CURRENT STRUCTURED 
"SELF" -SITUATION IS INCLUDED IN A FIRST PLAN RELATIONAL 
"SELF" -SITUATION, REGARDING SECOND DATA ABOUT A CURRENT 
STRATEGY AND A "CONCRETIZED" CURRENT SUCH PLAN RELATIONAL 
"SELF" -SITUATION, TO PROVIDE DATA REGARDING THE CONCRETE 
OBJECTS OF A SUCH THEN CURRENT STRUCTURED "SELF"- 
SITUATION WHICH -ARE INCLUDED IN SUCH FIRST PLAN 

RELAT I O NAL " SELF "- SITUATION , 

I 

(3) FOR USE IN A THIRD STORY ELEMENT OF A SUCH STORY, 
PROCESSING DATA, WHEN A SUCH THEN CURRENT STRUCTURED 
"SELF" -SITUATION IS INCLUDED IN A SECOND PLAN RELATIONAL 
"SELF" -SITUATION, REGARDING THIRD DATA ABOUT A CURRENT 
STRATEGY AND A "CONCRETIZED" SUCH SECOND PLAN RELATIONAL 
"SELF" -SITUATION, TO PROVIDE DATA REGARDING THE CONCRETE 
OBJECTS OF A SUCH THEN CURRENT STRUCTURED "SELF"- 
SITUATION WHICH ARE INCLUDED IN SUCH SECOND PLAN 
RELATIONAL "SELF" -SIT UATION __ . 

(4) FOR USE IN A SEQUENTIAL STORY ELEMENT OF A SUCH 
STORY, PROCESSING DATA, WHEN A SUCH SEQUENTIAL CURRENT 
STRUCTURED " SELF " -SITUATION IS INCLUDED IN A NEXT 
IDENTIFIED PLAN RELATIONAL " SELF "- SITUATION , REGARDING 
SEQUENTIAL DATA ABOUT A THEN CURRENT STRATEGY AND A 
"CONCRETIZED" SUCH NEXT IDENTIFIED PLAN RELATIONAL 
"SELF" -SITUATION, TO PROVIDE DATA REGARDING THE CONCRETE 
OBJECTS OF A SUCH SEQUENTIAL CURRENT STRUCTURED "SELF"- 
SITUATION WHICH ARE INCLUDED IN SUCH NEXT IDENTIFIED PLAN 
RELATIONAL "SELF" - SITUATION _ 



(5) FOR USE IN A FINAL STORY ELEMENT OF A SUCH STORY, 
PROCESSING DATA, WHEN A SECOND SELECTED LEVEL OF A SELF- 
PLEASURE SIGNAL HAS BEEN ATTAINED BY SUCH HUMANOID 
AUTONOMOUS DECISION SYSTEM, REGARDING FINAL DATA ABOUT A 
"CONCRETIZED" SUCH IDENTIFIED GOAL PLAN RELATIONAL 
"SELF" -SITUATION, TO PROVIDE DATA REGARDING THE CONCRETE 
OBJECTS OF A SUCH FINAL CURRENT STRUCTURED "SELF"- 
SITUATION WHICH ARE INCLUDED IN SUCH IDENTIFIED GOAL PLAN 
RELATIONAL » SELF" -SITUATION 



I 



PROCESSING DATA REGARDING SEARCHING OF ANY 
SEQUENTIAL DATA TO PROVIDE USER-CONTROLLED 
SUCH STORED SEQUENTIAL DATA 


SUCH STORED 
SELECTION AMONG 




i 


PROCESSING DATA REGARDING A USER- SELECTED 
SEQUENTIAL DATA TO PROVIDE A LATER TELLING 
UPON SUCH STORED SEQUENTIAL DATA 


LATER USE OF SUCH 
OF A STORY BASED 





FIG D 9B-1 



STEPS IN A COMPUTER PROGRAM FOR IMPLEMENTING 
FIRST NATURAL LANGUAGE INTERPRETATION FUNCTIONS IN 
A HUMANOID AUTONOMOUS DECISION SYSTEM INTERPRETING 
INCOMING FIRST NATURAL LANGUAGE FROM AN OTHER 



STORING IN A COMPUTER IN FORMAT I ON -STORAGE DEVICE DATA 
COMPRISING NON-LINGUISTIC DISCRETE DATA-TYPES AND, CONFORMING 
TO EACH OF SUCH DISCRETE NON-LINGUISTIC DATA-TYPES, A SET OF 
NON-LINGUISTIC DISCRETE DATA ELEMENTS 



INITIATING AND STORING DATA REGARDING RESPECTIVELY LINKING 
ESSENTIALLY EACH SUCH DISCRETE DATA-TYPE OF SUCH HUMANOID 
AUTONOMOUS DECISION SYSTEM WITH A RESPECTIVE WORD /PHRASE 
CATEGORY OF SUCH FIRST NATURAL LANGUAGE i 



INITIATING AND STORING DATA REGARDING RESPECTIVELY LINKING 
SELECTED WORDS/PHRASES OF EACH SUCH LINKED WORD/ PHRASE 
CATEGORY OF SUCH FIRST NATURAL LANGUAGE WITH RESPECTIVE SUCH 
DISCRETE DATA ELEMENTS OF EACH SUCH DISCRETE DATA-TYPE SO 
LINKED WITH A SUCH LINKED WORD/PHRASE CATEGORY 



PROVIDING INPUT INFORMATION ABOUT CHARACTERISTICS OF SUCH 
INCOMING NATURAL LANGUAGE SUFFICIENT TO IDENTIFY EACH 
VOCABULARY ELEMENT, SNIPPET TYPE FOR EACH SUCH ELEMENT, AND 
GRAMMATICAL FUNCTION FOR EACH SUCH ELEMENT 



3L 



PROCESSING DATA REGARDING SUCH INPUT INFORMATION TO PROVIDE A 
NON -NATURAL - LANGUAGE CONCRETE CIRCUMSTANCE INTERPRETATION OF 

ST TP H TKTPTTT INFORMATION 






f -« 




WHEREIN SUCH TRANSLATION MEANS COMPRISES NATURAL -LANGUAGE 
DEFAULT-SELECTING MEANS FOR PROCESSING DATA REGARDING 
SELECTION OF NON -NATURAL -LANGUAGE DATA TYPES AND DATA FOR 
CORRESPONDENCE WITH SUCH INCOMING INFORMATION 


1 


f 
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INITIATING AND STORING DATA REGARDING THE RELEVANCE TO THE 
HUMANOID AUTONOMOUS DECISION SYSTEM OF SUCH CIRCUMSTANCE 
INTERPRETATION, COMPRISING DATA REGARDING A SET OF 
HIERARCHICALLY -ORGAN I ZED , RELEVANT, NON-LINGUISTIC RELATIONAL 
"SELF"-SITUATIONS 



I 



PROCESSING DATA TO DETERMINE INCLUSIONS OF SUCH NON -NATURAL- 
LANGUAGE CONCRETE CIRCUMSTANCE INTERPRETATION WITHIN SUCH NON- 
LINGUISTIC RELATIONAL "SELF"-SITUATIONS TO DETERMINE ANY 
RELEVANCE OF SUCH NON-NATURAL-LANGUAGE CONCRETE CIRCUMSTANCE 
INTERPRETATION A SUCH "SELF" OF SUCH RELE VANCE MEANS 



WHEREIN SUCH DATA REGARDING SUCH SET OF HIERARCHICALLY- 
ORGANIZED, RELEVANT, NON-LINGUISTIC RELATIONAL "SELF"- 
SITUATIONS INCLUDES DATA, REGARDING ; 



(1) A SET OF HIERARCHICALLY-ORGANIZED PROBLEM 
RELATIONAL "SELF" -SI TUATIONS 



I 





(2) IN ASSOCIATION WITH ESSENTIALLY EACH OF SUCH 
PROBLEM RELATIONAL "SELF" -SI TUATIONS , A SET OF 
HIERARCHICALLY -ORGAN I ZED PLAN RELATIONAL "SELF"- 
STTHATTONS 






PROVIDING SUCH INTERPRETING HUMANOID AUTONOMOUS DECISION 
SYSTEM WITH ABILITIES TO SELECT FOR USE IN INTERPRETATION 
SIMILAR COGNITIVE, RELEVANCY, AND EMOTION SYSTEMS TO THOSE OF 
THE OTHER . , - — ■ 


1 


f 


PROCESSING DATA REGARDING A STORY-SERIES OF SUCH INCOMING . 
INFORMATIONS TO . PROVIDE A STORY-SERIES OF SUCH NON-NATURAL- 
LANGUAGE CONCRETE CIRCUMSTANCE INTERPRETATIONS 



PROCESSING DATA REGARDING SUCH STORY-SERIES OF SUCH NON- 
NATURAL- LANGUAGE CONCRETE CIRCUMSTANCE INTERPRETATIONS TO 
PROVIDE A LEARNED MODIFICATION OF A SUCH NON-LINGUISTIC 
DISCRETE DATA ELEMENT 



T 
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1 



WHEREIN SUCH STORY -SERIES OF SUCH NON- NATURAL -LANGUAGE 
CONCRETE 'CIRCUMSTANCE INTERPRETATIONS IS TREATED AS A 
TEMPORALLY- INCREMENTAL SERIES, RESPECTIVELY, OF "PRESENT" 
CONCRETE SELF-SITUATION REPRESENTATIONS OF A TEMPORALLY- 
INCRE MENTAL SERIES OF RESPECTIVE ENVIRONMENTAL SITUATIONS 



WHEREIN EACH STORY ELEMENT OF SUCH STORY-SERIES OF SUCH NON- 
NATURAL- LANGUAGE CONCRETE CIRCUMSTANCE INTERPRETATIONS 
COMPRISES 



I 



A SELF REPRESENTATION AND A SET OF EVENT REPRESENTATIONS , 
EACH SUCH EVENT REPRESENTATION BEING REPRESENTED 
SPECIFICALLY SPACIO- TEMPORALLY RELATIVE TO SUCH SELF 
REPRESENTATION, AND EACH SUCH EVENT REPRESENTATION 
INCLUD ING 



(1) A BEHAVIORAL- TYPE DESIGNATION SELECTED FROM A 
SET OF BEHAVIORAL -TYPE DESIGNATIONS, EACH SUCH 
BEHAVIORAL -TYPE DESIGNATION OF SUCH SET OF 
BEHAVIORAL- TYPE DESIGNATIONS BEING ASSOCIATED WITH A 
SET OF INCREMENTAL BEHAVIORAL SELF- TENDENCIE S FOR 
DETERMINING INCREMENTALLY -PREDICTED SELF-SITUATION 
REPRESENTATIONS FROM A SUCH PRESENTED SELF-SITUATION 
REPRESENTATION, AND 



I 



(2) A SET OF CURRENT-BEHAVIOR DESIGNATIONS 
ASSOCIATED WITH EACH SUCH EVENT REPRESENTATION 
SPECIFYING THE CURRENT BEHAVIORS OF EACH SUCH EVENT 
REPRESENTATION 



WHEREIN ESSENTIALLY EACH SUCH EVENT REPRESENTATION COMPRISES 
AN OBJECT REPRESENTATION REPRESENTING A PARTICULAR OBJECT AS 
PART OF A COLLECTION OF SUCH OBJECT" REPRESENTATIONS , EACH SUCH 
OBJECT REPRESENTATION OF SUCH COLLECTION COMPRISING A SUCH 
BEHAVIORAL- TYPE DESIGNATION COMPRISING CHARACTERISTICS OF EACH 
SUCH OBJECT REPRESENTATION OF SUCH COLLECTION, WHEREIN 
ESSENTIALLY EACH OF SUCH CHARACTERISTICS COMPRISES A SUBSET OF 
A SET OF SELF-TENDENCIES AND A CORRESPONDING SUBSET OF A SET 
OF SELF-TENDENCY MARKERS 



_i : 

SUCH SET OF -SELF-TENDENCY MARKERS HAVING A 1-TO-l 
CORRESPONDENCE WITH SUCH SET OF SELF-TENDENCIES, ONE 
UNIQUE MARKER FROM SUCH SET OF SELF-TENDENCY MARKERS 
CORRESPONDING RESPECTIVELY WITH EACH SELF-TENDENCY OF 
SUCH SET OF SELF- TENDENCI.ES 

i 

SUCH SUBSET OF SELF-TENDENCIES BEING CONSTRUCTED AND 
ARRANGED TO PERMIT A DETERMINATION OF THE EXPECTED 
BEHAVIOR OF EACH SUCH OBJECT REPRESENTATION WITH RESPECT 
TO ANY MAPPABLE REPRESENTATION OF OTHER OBJECT 
REPRESENTATIONS FROM SUCH COLLECTION OF OBJECT 
REPRESENTATIONS „ 



V ,..,.„ 

EACH SUCH SELF-TENDENCY CONSISTING ESSENTIALLY OF AN 
INSTRUCTION FOR SELF-BEHAVIOR (OF ANY FIRST OBJECT 
REPRESENTATION TO WHICH SUCH SELF-TENDENCY MAY BE 
ASSIGNED) ON THE CONDITION THAT ANY MAPPABLE 
REPRESENTATION OF OBJECT REPRESENTATIONS FROM SUCH 
COLLECTION, INCLUDING SUCH FIRST OBJECT 
REPRESENTATION, FROM THE VIEWPOINT OF SUCH FIRST 
OBJECT REPRESENTATION, IS INCLUDED IN A SPECIFIED 
SELF-RELATION SELECTED FROM A SET OF SELF -RELATIONS 



W 

WHERE EACH SELF-RELATION OF SUCH SET OF SELF- 
RELATIONS COMPRISES A SPECIFIED SPACE -TIME RELATION 
AMONG A SUCH FIRST OBJECT REPRESENTATION AND AT 
LEAST ONE SUCH OTHER OBJECT REPRESENTATION 



V 

EACH SUCH OTHER OBJECT REPRESENTATION BEING 
SPECIFIED AS A SUBSET OF A SET OF SELF-TENDENCY 
MARKERS, EACH SUCH SUBSET OF SELF-TENDENCY 
MARKERS CORRESPONDING TO THE SUBSET OF SELF- 
TENDENCIES ASSIGNED TO EACH SUCH OTHER OBJECT 
REPRESENTATION. 
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WHERE IN SUCH DATA REGARDING A SET OF HIERARCHICALLY-ORGANIZED, 
RELEVANT, NON-LINGUISTIC RELATIONAL "SELF"-SITUATIONS 
COMPRISES (1) A SET OF HIERARCHICALLY -ORGAN I ZED ABSTRACT SELF- 
PROBLEM REPRESENTATIONS , AND (2) IN ASSOCIATION WITH 
ESSENTIALLY EACH OF SUCH ABSTRACT SELF -PROBLEM 

REPRESENTATIONS, A SET OF HIERARCHICALLY-ORGANIZED ABSTRACT 
SELF-PLAN REPRESENTATIONS EACH COMPRISING A SET OF ABSTRACT 
SELF-SUBGOAL REPRESENTATIONS 



PROCESSING DATA REGARDING SUCH SELF-PROBLEM REPRESENTATIONS 
AND SUCH SELF-PLAN REPRESENTATIONS TO PROVIDE "SELF-PAIN" AND 
"SELF-PLEASURE" REPRESENTATIONS HAVING AS SESSABLE QUANTITIES 



PROCESSING DATA REGARDING SUCH STORY ELEMENTS OF SUCH STORY- 
SERIES OF SUCH NON - NATURAL - LANGUAGE CONCRETE CIRCUMSTANCE 
INTEkPRETATIONS TO IDENTIFY A FIRST SERIES OF SUCH STORY 
ELEMENTS WHICH RESULT IN A SELECTED LEVEL OF UNPREDICTED 
11 SELF- PAIN" 



PROCESSING DATA REGARDING SUCH FIRST SERIES OF SUCH STORY 
ELEMENTS TO CREATE A LEARNED SELF-PROBLEM R EPRESENTATION 

I 



PROCESSING DATA REGARDING SUCH STORY ELEMENTS OF SUCH STORY- 
SERIES OF SUCH NON-NATURAL-LANGUAGE CONCRETE CIRCUMSTANCE 
INTERPRETATIONS TO IDENTIFY A SECOND SERIES OF SUCH STORY 
ELEMENTS WHICH RESULT IN A SELECTED LEVEL OF UNPREDICTED 
"SELF-PLEASURE 11 



RE- 



PROCESSING DATA REGARDING SUCH SECOND SERIES OF SUCH STORY 
ELEMENTS TO CREATE A LEARNED SELF-SUBGOAL REPRESENTATION 
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} Unit Sagetalk; { 

P= Purpose: . Owner; TFL 

This unit contains the code that generates story text, based on the 
arousal record in the story2 unit. All kinds of substitutions occur. 

— History: 



3/26/91 : Added Marty's sagetalk changes. RG 

7/24/91 : Mods made to reflect use of new synonym calls and to reflect 

spec changes per file S PTELNW3 . ISP . - DS 
7/31/91 : Mods made to reflect new face emotional settings per Jay's 
spec, SAGEFACE . JAY . - DS 
= Copyright (c) 1989-1991 Anthrobotics — 
( } Interface { / 

Uses Crt,Story2, Types, Playback; 

FUNCTION Describe_Story (Caps : Boolean): Integer; 
PROCEDURE Intro_Phrase (Which : Integer); 

PROCEDURE Then_Phrase (Which : Integer; Pref ix , Suf f ix : Boolean); 
PROCEDURE Problem_Phrase (Which : Integer); 
PROCEDURE Strategy_Phrase (Which: Integer); 
PROCEDURE Decision_Phrase (Which : Integer); 
PROCEDURE NewDecision_Phrase (Which : Integer); 
PROCEDURE Plan_Phrase (Which : Integer); 
PROCEDURE NextNode_Phrase (Which : Integer); 
PROCEDURE Node_Phrase (Which : Integer); 
PROCEDURE Friend__Phrase (Which: Integer); 
PROCEDURE Last_Phrase (Which : Integer); 
PROCEDURE Describe_Arousals (Which : Integer) ; 
PROCEDURE Get Highes t_Regs ; 
{ ) Implementation ( } 

Uses General, NewTypes , Register, Face 2, 
Terms4 , Terms5 , Terms6 , 

Da t Li st , Termsl, Terms 2 , Terms 3 , GoalStuf f ; 

Const UseCaps: Boolean = False; (if true, then sound_and_Text upcases 1st char) 
Spoke : Boolean = False; 

Type Volume = ( VSame , VLoud , VNorm , VSof t ) ; 

Pitch = (PSame , PHiHi , PHi , PNorm, PLo, PLoLo) ; 

Faces - ( FNorm , f Sad , f Grim , fCTime ) ; 

{ .-.------} 

PROCEDURE Output_Face_Command (Command ; Keywords; Parml , Parm2 , Parm3 , Parm4 : 
Short In t) ; 
Begin 

StoryFile . fCurrentCommand . Bytes [1] :=parml; 
StoryFile , f CurrentCommand . Bytes [2 j : =Parm2 ; 
StoryFile . fCurrentCommand . Bytes [3 ] : =Parm3 ; 
StoryFile . fCurrentCommand . Bytes [4 ] : =Parm4 ; 
OutPut ('', Command) ; 
end; (output face change) ^ 

PROCEDURE Sound_And_Text (TheVolume : Volume; ThePitch: Pitch; S: Strl50); 
Const VolumeLevels : Array (Volume 3 of Byte - (0,6,5,4); 

PitchLevels : Array[Pitch] of Byte - (0,8,7,6,5,4); 

Begin 

If UseCaps then S [1] : «=UpCase (S £ 1 ] ) ; 
Spoke : =True ; 
UseCaps := False ; 

Save_Sound ( 0 , VolumeLevels [The Volume] , PitchLevels [ThePitch] ,10) ; 
OutPut (S, Say) ; 
end; (sound and text) 

PROCEDURE Show_Blink; 

Const Command : Array [1.. 6] of Keywords = ( LEye , Reye , Display , Wai t , Leye , Reye ) ; 

Parm : Array[1..6] of Shortlnt * (100,100,0,125,-100,-100); 

Var I ' : integer ; 

Begin 

For I : a l to 6 do 

Output_Face_Command (Command [i] , Parmfi] ,0,0,0) ; 
end; (blink) 
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PROCEDURE Drive_Face (Var Comms , Prms ; Count : Byte); 
Var Commands : Array [1. .1] of Keywords absolute Comms / 

Parm : Arrayfl. .1, 1. .4] of Shortlnt absolute Prms; 

Var I : Integer; 

Begin 

For I: el to Count do 
Output Fa ce_Command (Commands [ i ] , parm ( i , 1 ] , Parm [ i , 2 ) , Parm [i , 3] , parm [ i , 4 } ) ; 
end; "["Drive face} 



PROCEDURE Show_Grim; 

Const Command : Array [1 . , 5] of Keywords = ( Eyes , Leye , Reye , Nose , Mouth) ; 

Parm : Array [ 1 . . 5 , 1 . . 4 ] of Shortlnt = 

((-15,0,15,0), (0,-15,-10,0), (0, -15,V10, 0) , (10, 0, 0, 0) , (-10,-20,-10,0)); 
Begin 

Drive Face (Command, Parm, 5} ; 
end; (grimj 



PROCEDURE Show_Sad; 

Const Command : Arrayfl.. 4] of Keywords = (Eyes , Leye, Reye, Mouth) ; 
Parm : Arrayfl, .4,1. .4] of Shortlnt = 

((0,20,0,7), (20,0,-25,0), (20,0,-25,0), (-5,-50,10,0)); 

Begin 

DriveSpace (Command, Parm, 4 ) ; 
end; (sad) 



PROCEDURE Show_Fear; 

Const Command : Arrayfl.. 6] of Keywords • = ( Eyes , Leye , Reye , Mouth , Pupi Is , Nose ) ; 
Parm : Arrayfl. .6,1. .4] of Shortlnt = 

((25,20,25,0), (1,50,0,0), (1,50,0,0), (-25,-50,60,0), (3,0,0,0), (3,0,0,0)); 

Begin 

r " Drive_Face (Command , Parm, 6 ) ; 
end; (show fear) 



PROCEDURE Show_Smile; 

Const Command : Arrayfl.. 4] of Keywords = (Mou th , Eye s , Leye , Reye ) ; 
Parm : Array [1. .4,1. .4], of Shortlnt = 

((5,35,20,0), (-10,0,5,0), (0,15,0,0), (0,15,0,0)); 

Begin 

Drive_Face (Command, Parm, 4) ; 
end; (Smile) 



PROCEDURE Show_Wink; 

Const Command : Arrayfl.. 6] of Keywords » (REye , Leye , Display , Wait , Reye , LEye) ; 

Parm : Arrayfl. .6,1. .4] of Shortlnt = 

((100, -20, 0,0), (0,30,0,0), (0,0,0,0), (127,0,0,0), (-100, 20, 0,0), (0,-30,0,0)); 
Begin 

Drive Face (Command, Parm, 6) 
end; (winkj 



PROCEDURE Move_Brows (Up: boolean) ; 

Const Scalar : Array [ Boolean) of Shortlnt = (-20,20); 
Begin 

Output_Face_Command (Leye , 0 , Scalar f up] ,0,0) ; 
Output_Face Command (Reye , 0 , Sea la r f up] ,0,0) ; 
end; (Move BrowsJ 



PROCEDURE Til t_Lef t_Brows (Up : boolean) ; 

Const Scalar : Array [ Boo 1 ean , 1 . . 3 ] of Shortlnt = ((-20,-20,10), (20,20,-10)); 
Begin 

Ou tpu t_ Face_Command (Leye, 0,Scalarfup, 1] , Scalar [Up, 2] , 0) ; 
Output~Face_Command (Reye, 0,Scalar [up, 3] , 0, 0) ; 
end; (tilt left brows) 



PROCEDURE Look_Around; 

Const Command : Arrayfl. .7) of Keywords « 
( Eyes ,Display,wait, eyes, display, wait, eyes ) ; 

Parm : Array [ 1 . . 7 , 1 . . 4 ] of Shortlnt - 

((0,0,0,-14), (0,0,0,0), (127,0,0,0), (0,0,0,28). (0,0,0,0), (127, 0,0,0), (0,0,0, -14)); 

Begin 

Drive__Face (Command, Parm, 7) ; 
end; (look around} 
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PROCEDURE Ini t_Face (What : Faces) ; 
Const Default : Array [ 1 .. 15 ] of Shortlnt = 
(15,15,-10,-10,0,4,1,1,10,0,10,-10,0,30,1) / 
Begin 

If What=fCTime then 

Move (Default, StoryFile . f Input . f Data, SizeOf (Default) ) 
else Move ( Las tComp Face , StoryFile . f Input . fData, SizeOf (Default) ) ; 
Output ( ' ' , AbsFace ) / 
If What=fGrim then Show_Grim else 
If What=fSad then Show_Sad; 
end; (init face) 

FUNCTION Describe_Story (Caps : Boolean): Integer; 
Begin ■ . 

Spoke : = False ; 

UseCaps : =Caps ; 

With AStoryRec, StoryFile do 

Begin 

If (NowPorpoisePtroLastNowPorpoisePtr) then 
Begin 

Problem_Phrase (AnyTerm) ; 
If TheStratNameo ' ' then 

Stra tegy_Phrase (Any term) ; 

end ; 

If (HitSiNodeoLastStoryrec . HitSiNode ) then 
If (PlanNameo ' ' ) and (SGNatneo") then 
Plan_Phrase (Anyterm) 

else 

else If (SGNameo' ' ) then Node_Phrase (Anyterm) ; 
If (NextSINodeoLastStoryrec . NextSiNode) and 
(NextSGNameo ' ' ) then 

NextNode_Phrase (Anyterm) ; 
If (NowDSDoLastS toryrec . NowDSD) then 

NewDecision_Phrase (Anyterm) ; 
If Spoke then 

Describe_Arousa 1 s (AnyTerm ) ; 

end; 

Describe_Story : -StoryFile. f I Ore suit ; 
end; {describe story) 

PROCEDURE Introjhrase; 

Var T1,T2,T3,T4: String [70]; 

Begin 

Ini t_Face ( f CTime) ; 
UseCaps : -True ; 

Which : =Determine__Which (Whi ch , 6) ; 
Case Which of 
1 : Begin 

Tl : =Ins tantly_Terms (anyterm, false, false) +' , ' ; 

T2 : = ' while' +In_Terms (AnyTerm, True, True) +Ma inFi leName+ ' , is ' y 
T3 : = ' where it' ' s ' / 

T4 : =Really_Terms (True , True) + Happen ing_Terms ( False , False )+' . ' 

end; 
2 : Begin 

Tl :='Well, 

T2 :=' I '' m' + In_Terms (AnyTerm, True , True) +MainFi leName+ ' and if's 



+Today ; 



+UserName+ ' , 



end ; 
Begin 



T3 : « ' as if's all'/ 

T4 : =Really_Terms (True , True ) +Happenirig^Terms ( False , False ) + ' . ' 

i 

Tl: = 'It"s a dark and ' +Rea 1 ly_Terms ( true , true )+' stormy night, 



T2 
T3 
T4 



end ; 
Begin 



Tl 
T2 
T3 
T4 



a ' and I ' ' m ' + In__Terms (AnyTerm , True , True ) + Ma inFi le Name + ' , '; 
= 'as I ' +Usually_Terms (True , True ) + ' am, '; 
=' minding my own business.'; 



=' You won' ' t believe this, '; 
«'but so help me ' ; 

='every word i s ' +Rea 1 ly_Te rms ( True , True )+' t rue . ' 
a' If 'a ' + Today 4- ' and 
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I ' ' m' +InJerms (AnyTerm, True , True ) +MainFileName+ ' . ' ; 
end; 
5 : Begin 

Tl : =Instantly_Terms (anyterm, false , false) + , ; 
T2 : « ' I ' ' m' 4ln__Terms (AnyTerm, True, True) +MainFileName+ ' '; 
T3:='on '+Today+' '; 
T4 : - ' and things are 
' +becoming_Terms (false, false) +Real ly_Terms (True , True ) +' bad . ' ; 
end / 
6 : Begin 

Tl : =Instantly_Terms (anyterm, false , false ) + , / 
T2 : a' it ' ' s all ' +Began_Terms (ANyTerm, True, True) ; 
T3 : = ' while I ' ' m' +In_Terms (AnyTerm , True , True ) ; 
T4 : =MainFileName+ ' . .' ; 

end; 

end ; 

Sound__And_Text (VNorm, PHi , Tl) ; 
Show_Blink; 

Sound_And_Text (VNorm, PNorm, T2) ; 
Show_Fear ; 

Sound_And_Text (VNorm, PHi , T3 ) ; 
Sound__And_Text (VSof t, PNorm, T4 ) ; 
Show__Bl ink ; 

end; (intro phrase} . 

PROCEDURE Problem_Phrase ; 
Var temp : String(80]; 
Begin 

Which : =De termine__WHich (Which , 7 ) ; 
Case Which of 
1 : Begin 

temp : =' the' +problem_Terms (AnyTerm, True, True) ; 
Sound_And_Text (VNorm, PHi , temp) ; 
Look_Around; 

Sound_And_Text (VSof t, PNorm, ' that '' s facing me 
' +Instantly_Terms (Anyterm, False, True) ) ; 

Show_Blink; 

Sound_And_Text (VSof t, PHi, ' is ' + ProblemName + ' . ' ) ; 

end; 
2 : Begin 

Sound_And_Text (VNorm, PHi, ' I"m' + Rea 1 lyJTerms (True, True) +' trying 

' ) ; 

Look_Around ; 

Sound_And_Text (VSof t , PNorm, ' to avoid ' + Probl emName + ' . '); 
Show_Bl ink ; 

end } 
3 : Begin 

Init_Face (FSad) / 

Sound_And_Text (VNorm, PNorm, ' I '' m ' +Began_Terms (AnyTerm, True , True) +' to have a' + 

Probl em_Terms (AnyTerm, True , True) ) ; 
Look_Around ; 

Sound_And_Text (VSof t, PNorm, ' trying to avoid ' +ProblemName+ ' . 

, , . 

end; ■ 
4 : Begin 

If Caps then ProblemName [ 1 ] := UpCase ( ProblemName [ 1 )) ; 

Sound_And_Text (VNorm, PHi , ProblemName* ' is '); 

Til t_Left_Brows (True) ; 
Sound_And_Text (VNorm, PNorm, Real ly_Terms (False , True) + ' a ' + Probl em_Terms (AnyTerm, True 
, True )+' for me . ' ) ; 

Show_Blink; 

end ; 
5: Begin 

Init_Face (FSad) ; 

temp:*' talk about a' + Problem_Terms (AnyTerm , True , False )+'--' ; 

Sound_And_Text (VNorm, PNorm, temp) ; 

Show__Blink; 

Ou tpu t_Face_Command ( Eyes , 0,0,0,7} ; 
Sound_And_ Text (VNorm, PLo, ' the one I am' 

+ Real ly_Terms ( true , true ). + ' facing is '+ ProblemName + ' . '); 

end; 
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6 ; Beg in 

Init_Face ( FSad) ; 

Sound_And_Text (VNorm, PHiHi , Instantly_Terms (AnyTerm, False, False) +' , ' ) ; 
Show__Blink; 

Output_Face_Command (Eyes ,0,0,0,7) ; 

Sound_And_Text { VNorm, PLo, ' I ' ' m confronting a new 
' +Problem_Terms (Anyterm, False, false) 

+ ' , ' + ProblemName + ' . ' ) / 

end; 
7 ! Begin 

Init_Face ( FSad) ; 

temp : =ProblemName+ ' is the ' + problem__Terms (AnyTerm , True , True ) ; 

Sound_And_Text {VNorm, PNorm, temp) / 

Show_Blink; 

Output_Face__Command (Eyes ,0,0,0,7) ; 
Sound_And_Text (VNorm, PLo, ' that is ' + 

Becoming_Terms ( true , true ) + ' an aggravation. '); 

end ; 

end; 

Use Caps : =True ; 

end; {problem phrase) ^ 

PROCEDURE Strategy_Phrase ; 
Begin 

Which : =Determine_Which (Which, 6 ) ; 
If Which<>6 then Ini t_Face { f Grim) ; 
Case Which of 

1: Sound_And_Text (VNorm , PHi so , of course, 
I ' +Planned_To_Terms (AnyTerm, True , True ) +TheStratName+ ' . ' ) ; 

2 : Begin 

Sound_And_Text (VNorm, PHi , ' all I ' +Real ly_Terms (True , True) +'care 

about is ' ) ; 

Output_Face_Command (Eyes, 0, 0, 0, 7) ; 
Sound_And_Text (VNorm, PNorm, ' that 
I ' +Planned_To_Terms (AnyTerm, True , True) +TheSt ra tName+ ' . ' ) ; 
end ; 

3 : Begin 

Sound_And_Text (VNorm, PHi , ' to ' +TheSt ra tName+ ' '); ■ 
Sound_And_Text (VSof t, PNorm, ' is what 
I ' +Real ly_Terms (True , True ) + ' am focused on. '); 
end; 

4 : Begin 

Sound_And_Text (VNorm, PHi , ' I know if I can ' +TheS tratName + ' '); 
Show_Blink; 

Sound_And_Text (VSof t , PNorm, ' I 
will ' +Usually_Terms (True , True) +' be all right' 

+very_Soon_Terms (true, false) + ' . ' ) ; 

end; 

5 : Begin 

Output_Face_Command (Eyes ,0,0,0,-14) ; 

Sound_And_Text (VNorm, PHi, ' if I can only ' +TheStra tName+ ' ')/ 
Output_Face_Command (eyes , 0 , 0 , 0 , 14 } ; 
Sound_And_Text (VSoft, PNorm, 'my' 
+Problem_Terms (AnyTerm, True , True ) + 'will end. '); 
end; 

6 : Begin 

Ou tput_Face__Commahd ( Eyes ,0,0,0,-14) ; 
Sound_And_Text (VNorm, PHi ,' but I 
can ' +Usually_Terms (True , True )+' handle it ')/ 

Output_Face_Command (eyes , 0,0,0,14) ; 

Sound_And_Text (VSof t, PNorm, ' if I can only ' + TheS t ra tName + ' . '); 

end ; 

end / 

UseCaps : =True ; 
end; ( s t ra tegyphrase ) 



PROCEDURE Decision_Phrase ; 
Begin 

Which : =Decermine__Which (Which, 7 ) ; 
If Which<5 then I ni t__Fa ce ( f Norm ) ; 
Case Which of 
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Sound And Text (VNorm, PHi , instantly_Terms (anyterm, False, False) +' , '); 

~ Sound_And__Text (VNorm, PNorm, ' I am' + 

Began_Terms(AnyTerm,True,True)+' to ' +Df 1 tDSDName + ' '); 

Sound And Text (VNorm, PLo, 'while' +becpming_Terms (true, true) +' concerned' ) ; 

- - Sound>ndJText (VSof t, PLo, ' and' + Lookin g- For_Terms (True , True) + a 

plan.'); 

end ; 

2 : Begin , , . , , 

Sound_And_Text (VNorm, PNorm, ' I '' m getting my brain in gear ); 

Show, Blink; 

Sound_And_Text (VNorm, PLo, ' and * +Began_Terms (AnyTerm, True , fa 1 se )+ ' to 
' +Df 1 tDSDName+ ' . ' ) ; 

end ; 

3 : Begin ^ 
Sound_And_Text (VSof t , PNorm, ' while' +Decision_Terms (AxiyTerm , True , True ) ) ; 
Move_Brows (True) ; 

Sound_And_Text (VSof t, PHi ,' what else I might do, '); 

Move_Brows (False) ; 

Show_Blink; 

Sound_And_Text (VNorm, PNorm, ' I 
am' +Began_Terms (AnyTerm, True, True) +' to ' ' +Df 1 1 DSDName+ ' . ' ) ; 
Show_Smile; 

end; 

4 : Begin „ , . , T 

Sound_And_Text (VNorm, PNorm , Righ t_Now_Terms (False, False) + , I 

am' ) ; 

Show Blink; , , . 

Sound_And_Text (VNorm, PNorm , BeganJTerms (AnyTerm , True , True ) + ' to 

' +Df ltDSDName+' ' ) ; 

Show^Smile ; 

Output_Face_Command (Eyes , 0,0,0,-14); 
Sound_And_Text (VNorm, PLo, ' and worrying less '); 
Output_Face_Command ( Eyes , 0,0,0,14); 
Sound_And_Text (VNorm, PLo, ' while' 
+Decision_Terms (AnyTerm, True , True) + ' my ' ) ; 

Move_Brows (True) ; 

Sound_And_Text (VNorm, PLolo, ' next step. '); 

end ; 
5: Begin 

Sound_And_Text (VNorm, PNorm, 'so I ' ' m' ) ; 
Show Blink; 

Sound_And_Text (VNorm, PLo, BeganJTerms (AnyTerm, True, True) + to 

' +Df ltDSDName „ 

+instantly_terms (anyterm, true, false) +' . ) ; 

end ; 
6 : Begin 

Sound And Text (VNorm, PNorm, Ins tant ly_Terms (anyterm, Fal se , False ) + 

~ ', I''m ' +Decision_Terms (AnyTerm, False, True) ) ; 

Show_Blink; 

Sound_And_Text (VNorm, PLo, ' to start to ' +Df 1 tDSDName* ' ' ) ; 
Show_Smile; 

end; 
7: Begin 

Sound_And_Text (VNorm, PNorm, 'so, ' ) ; 
Show_BLink ; 

Sound_And_Text (VNorm, PNorm, ' whi le ' +Looking_For_Terms (True , True ) +' some plan, ) ; 
Show_Smile; 

Output_Face_Command (Eyes , 0,0,0,-14) ; 
Sound_AndJText (VNorm, PLo, ' I ' ' m ' +Began_Terms ( AnyTerm , True , True ) +' to 
' +Df 1 tDSDName* ' . ' ) ; 

Move_Brows (True) ; 

end ; 

end; 

UseCaps : =True ; 

end; {Decision phrase) . 

( ' 

PROCEDURE Plan^Phrase; 
Begin 

Which : =Determine_Which ( Which , 8 ) ; 
Ini t Face ( FNorm) ; 
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Case Which of 

1 : Begin 

Sound_And_Text (VNorm, PHi, Instant lyJTerms (anyterm, False, False) +' , I am ' +SGName+ 

Tilt_Left_Brows(True) ; 
Sound_And_Text (VNorm, PNorm, ' and 
I ' +Planned_To_Terms ( AnyTe rm , True , True) +PlanName+ ' . ' ) ; 

S ho w_Bl int- 
end ; 

2 : Begin 

Sound_And_Text (VNorm, PHi , ' I find myself '+SGName+' '); 

Show^Bl ink ; 

Show_Grim; 

Sound_And_Text {VNorm, PNorm, 'and' + Planned_To_Terms ( AnyTe rm , True , True ) +PlanName+ ' . 

f ^ ^ 

end / 

3 : Begin 

Sound_And_Text (VSof t , PLo, ' so here I am, '); 
Show_Blink ; 

Sound_And_Text (VSof t, PLo,SGName+' '); 
Til t_Lef t_Brows (True ) ; 
Sound_And_Text (VNorm, PNorm, ' and 
I ' +Planned_To_Terms ( AnyTe rm, True , True ) +PlanName+ ' . ' ) ; 
end; 

4 : Begin 

Sound_And_Text (VSof t , PLo, ' anyway, ' ) ; 
Show_Wink / 

Sound__And_Text (VSof t, PLo, ' I am '+SGName+' ' ); 

OutPut_Face_Command (Eyes ,0,0,0,-7); 
Sound_And_Text (VSof t , PNorm, ' and ' + Pi anned_To_Terms { AnyTe rm, True , True ) +PlanName+ ' . 
' ) i 

end ; 

5 Begin 

Sound_And_Text (VNorm, PHi, 'here I''m '+SGName+' '); 
Tilt__Lef tJBrows (True) / 
Sound_And_Text (VNorm, PNorm, ' but 
I ' +Planned_To_Terms (AnyTerm, True , True) +PlanName+ ' next. '); 

Show_Bl ink ; 

end ; 

6 : Begin 

Sound_And_Text (VSof t , PLo, Ins tant ly_Terms (anyterm, False , False )+ ' I ' ' m ' ) ; 

Show_Blihk; 

Sound_And_Text (VSof t , PLo, SGName*' ' ) / 
Tilt_Lef t__Brows-(True) / 
Sound_And_Text (VNorm, PNorm, 'but next 
I ' +Planned_To_Terms (AnyTerm, True , True ) +PlanName+ ' . ' ) ; 
end; 

7 : Begin 

Sound_And_Text (VSof t , PLo , Instant ly_Terms (anyterm, False , False ) + ' , while I''m ')/ 

Show_Wink; 

Sound_And_Text (VSoft, PLo,SGName+' , ' ) ; 
OutPut_Face_Command ( Eyes , 0 , 0 , 0 , - 7 ) ,« 
Sound_And_Text (VSoft , PNorm, ' I ' +Planned_To_Terms (AnyTerm, True , True ) +PlanName+ ' . ' ) ; 
end ; 

8 : Begin 

Sound_And_Text (VSoft , PNorm, ' I 
next ' + Planned_To_Terms (AnyTerm, True , True ) +PlanName+ ' '); 

Show_Blink; 

Sound_And_Text (VSof t , PLo, ' from where I am now '+SGName+'. '); 
OutPut_Face_Command ( Eyes ,,0,0,0,-10); 

end ; 

e n d ; 

UseCaps : =True ; 
end; {plan phrase) 

PROCEDURE Node_Phrase ; 
Var St : String [4 0] ; 
Begin 

Which : =De termine_Whi ch (Which, 7) ; 
I n i t_Face ( f Norm ) ; 
Case Which of 

1 : S t : « ' I am'; 



FIG. 9C-8 



st 

St 
St 
St 
St 
St 



= ' I find myself ' / t 
=Instantly_Terms {anyterm, false, false) +' , I find myself ; 
: ' here I am' ; 

=Instant ly_Terms (any term, false , false) +' , I am' ; 
= ' I ' ' m here' ; 



: ' I ' ' m ' • ; 
end; (case) 

If SGName[l)<>' ' then St:-St+' '; 
Sound_And - Text (VNorm, PHi , St+SGName+ ' . ' ) / 
Move_Brows (True) / 
UseCaps : =True ; 

end; (node phrase} ^ 

PROCEDURE NextNode_Phrase; 
Var St : STring [40] ; 
Begin 

Which : «Determine_Which (Which, 6 ) ; 
Ini t_Face ( f Grim) ; 
Case Which of 

1 : St : = ' I ' ; 

2 : St : - ' but I ' ; 

3 : St : - ' so I ' ; 

4 : St : - 'I know I ' ; 

5 : St :« 'without a doubt, I ' ; 

6 : St := 'obviously, I'; 
end; (Case) 

Sound_And_Text (VLoud, PHi , S t +Rea 1 ly_Terms (True, True) ) ; 

Sound And Text (VNorm, PH i , Need__To_Be_Terms (AnyTerm, False, True) +NextSGName+ ' 



' ) ; 



UseCaps:=True; 
{next node phrase] 



) 



end ; 

{--- 

PROCEDURE NewDecision_Phrase ; 
Begin 

Which : = De termine_Which (Which, 8) ; 
Init_Face (FNorm) ; 
Case Which of 

1 : Begin 

OutPut_Face_Command ( Eyes ,0,0,0,8) ; 

Sound_And__Text (VNorm, PHi , ' I am' +Began_Terms { Whi ch , True , True ) ) ; 
Sound_And_Text (Vnorm, PNorm, ' to ' +NowDSDName) ; 
Show_Blink; 
Show_Smi le ; 

Sound_And_Text (VNorm, PNorm, ' 
while' +hoping_Terms (true, true) +' for the best. ')/ 
end ; 

2 : Begin 

Sound_And_Text (VLoud , PHi , ' so, ' ) ; 
Show_Blink; 

Sound_And_Text (VNorm, PNorm, ' I' 'm' +Began_Terms (Which, True , True) ) ; 

Sound_And_Text (Vnorm, PHi , ' to ' +NowDSDName+ ' . '); 

end / 

3 : Begin 

Sound_And_Text (VSof t , PLo, ' to get to where I ' ' m going, 
Look_Around ; 

Sound_And_Text (VNorm, PNorm, ' I ' ' m' +Began_Terms (Which, True , True) ) ; 

Tilt_Lef t_Brows (True) ; 

Sound_And_Text (Vnorm, PHi , ' to ' +NowDSDName + ' . '); 

end; 

4 : Begin 

Sound_And_Text (VSof t , PNorm, ' to move along my plan, 
OutPut_Face_Command (Eyes ,0,0,0,8); 
OutPut_Face_Command (Eyes , 0,0,0,-12) ; 
Sound_And_Text (VNorm, PNorm, ' I ' ' m ' +Began_Terms (Which, True , True) ) ; 

Sound_And_Text (Vnorm, PHi to ' +NowDSDName+ ' . 

end ; 

5 : Begin 

Til t_Left_Brows (True ) ; 
Sound_And_Text (VNorm, PNorm, ' I ' ' m' +BeganJerms (Which, True , True) ) ; 

Sound_And_Text (VNorm, PHi ,' to ' +NowDSDName+ ' , '); 
Show Smile; 



) i 



) ; 



) ; 
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Sound_And_JText (VNorm, PNorm, Hoping_Terms (False, True) +' to get to where I ' ' m going. 

' ) ; 

end ; 

6 : Begin 

Show_Bl ink ; 

Sound_And_Text (VNorm, PNorm, ' I ' ' m' +Began_Terms (Which, True, True) ) ; 

Sound_And_Text (VNorm, PLo, ' to ' +NowDSDName+ ' , '); 
Look_Around ; ; 

Sound__And_Text( VNorm , PNorm, Hoping_Terms (False , True) + ' my plan 

works ou t . ' ) ; 

end; 

7 : Begin 

Sound_And_Text (VLoud , PHi , ' anyway, 
' +Hoping_Terms ( False , True )+' for the best, ')/ 

Show_Blink; 

Sound_And_Text (VNorm, PNorm, ' I ' ' m' +Began_Terms (Which, True , True) ) / 

Sound_And__Text (VNorm, PLo, ' to ' +NowDSDName+ ' . ')/ 

end ; 

8 : Begin 

Sound_And_Text (VLoud, PHi , ' looking ahead, '); 
Show_Blink / 

Sound_And_Text (VNorm, PNorm, ' I ' ' m # +Began_Terms (Which, True , True) ) ; 

Sound_And_Text (VNorm, PLo, ' to ' +NowDSDName+ ' . ')/ 

end; 

end ; 

UseCaps : =True ; 
end; (new decision) 



PROCEDURE Then_Phrase; 
Var St : String [20] ; 
Begin 

UseCaps : =True ; 

Case Determine Which (Which, 7 ) of 



1 


: St 


— 


'Then' ; 


2 


: St 




Later' ; 


3 


St 


= 


After a while' ; 


4 


St 




After that ' ; 


5 


St 




Next' / 


6 


St 




Then after that 


7 


St 




Next thing' ; 



end; 

OutPut (Spacing (Prefix] + st+ ' , ' +Spacing [Suffix] , Say) ; 
UseCaps : -False ; 
end; (then phrase) 



PROCEDURE Friend_Phrase ; 
Var T1,T2 : String[80); 
Begin 

UseCaps : =True ; 

Which : =Determine_Which (AnyTerm, 6) / 
. If Which<4 then 
Begin 

Case Which of 
1 ; Begin 

Init_Face (fCTime) ; 

Tl : s ' your' +Friend_Terms (AnyTerm, True , True) +HeroName+ ' ' ; 
T2 :=' could' +Rea 1 ly_Terms (True , True) +' use your help and 

advice, ' +UserName+' . ' ; 

end ; 

2 : Begin 

Ini t_Face ( f Norm) ; 

T1:='I tell you, ' +UserName+ ' , '; 

T2 : = ' your' +Fr iehd_Terms (AnyTerm, True , True) + 

HeroName*' is ' +Real ly_Terms (True , True ) + ' in trouble. '; 

end ; 

3 : Begin 

Ini t_Face ( f Norm) ; 

Tl : =' listen ' +UserName + ' , '; 

T2:='this time your' +Friend - Terms (AnyTerm, True, True) 4 

HeroName-*-' is ' +Real ly_Terms (True , True ) + ' in a pickle. 

end ; 
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end; (Case) 
Show_Wink / 

Sound_And_Text (VNorm, PLo, Tl) / 
Show_Blink ; 
Show_Smi le ; 

Sound_And_Text (VNorm, PNorm, T2 ) ; 

end ; 

UseCaps : = True ; 
end; {Friend phrase) 



PROCEDURE Last_Phrase; 

Const Words: Array[l.,5] of String[12] = 

('at last ,',' finally so f inal ly , ' , ' in the end,', 'so at last,'); 

EndPhrase : Array[0..1] of String[20) = 

(' I reached my goal. ',' my problem ended. '); 

Begin 

Which : =De termine_Which (Which, 5 ) / 

UseCaps : =True / 

Ini t_Face ( f CTime ) / 

Case PalDead of 

False : Begin 

If SGNameo' ' then 

Sound_And_Text (VSof t , PNorm, Words [Which] + ' I ' ' m 

' +SGName+' . ' ) 

else 

Sound_And_Text { VSof t , PNorm, Words (WHich] + EndPhrase [Random ( 2 ) ) ) ; 

Describe__Arousals (AnyTerm) / 

end ; 

True : Sound_And_Text ( VNorm , PNorm, Words [Which] + ' I ' ' m dead. '); 

end i 

UseCaps : =True / 
end; (last phrase) 



PROCEDURE Get_Highest_Regs ; 
Var Element, 
Where , 

Count : integer; 

Regs : ByteArray; 

St : String [80] ; 

Begin 

' FillChar (Top s 3Arousa 1 s , Si zeOf (Top3Arousals ) , 0) ; 
Move (AStoryRec . Arousals, Regs , SizeOf (Regs) ) / 

Regs [Ord (PainJoyRate) ] :=0; (NEVER talk about Pain, and always talk joy 
(below)) 

FillChar (Top 3 Regs , SizeOf (Top3Regs ) , 0 ) ; 
TopRegVal : =0 ; (needed in story) 
AStoryRec . Va lidRegCount : =0 ; 
(* First, get top 3 registers --*) 
With AStoryRec do 
For Count :=1 to 3 do 
Begin 

Where : =Find_Largest_Buf f er_Value (Regs [9] , 5) ; 
If (WhereoO) and (Regs [ 8+Where] <>0) then 
Begin 

Inc (ValidRegCount) ; 
Where s =Where + 8 ; 

Top3Regs [ValidRegCount] :=Where; 
If Regs [Where] >TopRegVal then 

TopRegVal : =Regs [where] ; 
Regs [Where 3 : =0 ; 

end 

end ; 

If (AS toryRec . Va lidRegCount <3 ) and (Regs [Ord (TotalArousal )] >0 ) then 
Begin 

Inc (As toryRec . Val idRegCount) ; 

Top3Regs [AStoryRec . Val idRegCount ] : =0rd (TotalArousal ) ; 

end ; 

(*-- Now convert top 3 regs into strings... --*) 
With AStoryRec do 

For Count :=1 to ValidRegCount do 
Begin 
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St :=Amount_Of (Top3Regs {Count] , 0, 255) ; 
Case Top3Regs [Count] of 

8 : Top3Arousals [Count ]: =S t + Fea r_Terms (AnyTerm, False , False) ; 

9 : Top3Arousals [Count] : =St+Surprise_Terms (AnyTerm, False , False ) ; 

10 : 

Top3Arousals [Count] : = S t + Disappointed__Terms (AnyTerm, False , False ) / 

11 : Top3Arousals [Count ]: =St+Frustrated_Terms (AnyTerm, False , False ) ; 

12 : Top3Arousals [Count] : =St+Hopeless_Terms (AnyTerm, False, False) / 
14 : Top3 Arousa Is [Count] : =St+Anxious_Terms (AnyTerm, False , False) ; 

end ; 

end / 

end; (Get highest regs) 

(----- - -•- ) 

PROCEDURE Describe_Arousals / " 
Var Next : Integer; 

Num : Integer; 

TempStr : String [150]; 
Begin 

Which : =De termine_Which (Which , 3 ) ; 
If AStoryRec . ValidRegCount >0 then 
Begin 

Init_Face (f CTime) ; 
Case Which of 

1 : TempStr : » ' I ' +Felt_Terms (AnyTerm, True , True) +Top3 Arousals [ 1 ] ; 

2 : TempS tr :=' Mainly , 

I ' +Felt_Terms (AnyTerm, True, True) +Top3 Arousa 1 s [1] ; 

3 : Begin 

OutPut_Face_Command ( Eyes ,0,0,0,7); 

TempStr I' ' ve noticed I ' +Fel tJTerms (AnyTerm, True , True ) + 

Top3 Arousa Is [ 1 ] ; 

end ; 

.end; 

Sound_And_Text { VSof t , PHi , TempStr+ ' . ' ) / 

end; 

If (AStoryRec .Arousals [13 ] <127) then 

Sound_And_Text (VNorm, PNorm, ' I ' ' m also feeling '+ 
Amount_Of (AStoryRec .Arousals [13] , 0 , 127) + 
Better_Terms (anyterm, false, false) +' . ' ) ; 
end; {Describe arousals) ^ 

end . 



Purpose : 



} Unit Story2; 



This unit controls the output of story text in record mode, and handles 
the real time changes to the face if telling a story in realtime mode. 
— History: 
3/26/91 : 
3/27/91 : 
6/26/91 : 



Last Ctime of story, only output conclusion phrase. RG 
If RiNum=AnyRi in convert_ri routine, kick out 1st SE.Ri. RG 
Added arousal output to story fiie. This is to let the PAL 
talk 2 way about arousals in story files. 
11= CoDyriqht (c) 1989-1991 Anthrobotics ================================ 

) Interface ( 



Uses Types, BlockFile, PlayBack, SiStuf f , Da t List , newTypes , General ; 
Type StoryRecord = Record 



porpoise } 



Hi tSiNode , 
NextSINode, 
NowStratPtr , 

NowDsd , 
Df ltDsd 
ArousalLeve 1 

HitPlanRow, 
Hi tPlanNum 



Incr_ArousaljRegs ) 

Find_Strategy/A x dvanced_On_Plan } 
^ Arousals 

, ValidRegCount 
end; { storyrecord) 
Const MinimumPain : Integer = 20; 

FearQui tLevel : Integer = 90; 



Point Ptr ; 
integer ; 



Byte ; 

ByteArray ; 
Byte; 



{Set in goalstuf: What now 

(Set in actions: Deep Thought) 
in actions: Deep Thought) 
in SxStuf f : 

(Set in } 

(Set in GoalStuf 

(Set in face2: Ma ke_Comp_Face } 
(Set in sagetalk) 

(Set in options unit) 
(Set in options unit) 
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Integer = 90; 

Array[1..3j of byte- (0 , 0 , 0) ; 
Byte = 0/ 

Array[1..3] of String[30) = (",''#''); 



String [80] 
String [80] 
String [80] 
String [80] 
String (80) 
String ( 80 ] 
String [80] 



set in goalstuf : Wha t_Now_Porpoise 
set in goalstuf: Wha t_Now_Porpoise 



set in goalstuf 
determined real 
determined real time 
determined real time 
determined real time 



MinimumJoy 
Top3Regs 
TopRegVal 
Top3Arousals 
Const ProblemName 
TheStratName 
PlanName 
SGName 
Df ItDsdName 
NowDsdName 
NextSGName 
Var AStoryRec, 

Las tS torYRec : StoryRecord; 
PROCEDURE Try_ To_Save__S tory / 
FUNCTION Begin_Story ( Var BeginStory: 
FUNCTION Conclude__S tory : Boolean; 
PROCEDURE Terminate_Run ; 
PROCEDURE Convert_Terms; 

PROCEDURE Save_Sound (Tone , Volume , Pi tch , Speed : Integer); 
FUNCTION OutPut(St Strl50; Command: Keywords): Integer; 
PROCEDURE Expand_Synonyms ( Var S: String; MaxLen: Word); 
PROCEDURE Convert_Abstract_Ris_To_Pf s (Var Source: string); 
PROCEDURE Convert Ri_To_Rx(Var Source: String); 
( ;•..) Implementation { 

Uses Terms 6 , Terms 5 , Terms 4 , Terms 2 , Terms 3 , Terms 1 , 
Sage Talk , Face2,RiStuff,Strucs, 

Printer, GrTool , Goal Stuff , DsdStuf f , Focus 2 , SxS tuff , 
Relation, RxStuffl; 



Find_St rategy } 
time 1 



Boolean) : Integer; 



(■ 



Integer) ; 



: =Tone 
: =Volume ; 
: =Pitch; 
: =Speed ; 



PROCEDURE Save_Sound (Tone , Volume , Pitch, Speed : 
Begin 

Story File . f Current Command .Bytes [ 1 ] 
Story File . f Cur rent Command .Bytes [2] 
Story File . f CurrentCommand .Bytes [3] 
Story File . f CurrentCommand . Bytes [4 ) 
Output ( ' ' , Sounds ) ; 
end; (save sound} 

{ ) 
FUNCTION OutPut (S : StrlSO; Command: Keywords): INteger; 
Var I : Integer; 

Dont : Boolean; 
Begin 

Dont : = False ; 
If So' ' then 

StoryFile . f Input . fStr : =S; 
StoryFile . f CurrentCommand . Command : =Command; 
If (StoryFile . fFileOpen) then 

OutPut :=StoryFile. mPut_Command 
else OutPut : =0 ; 

If OkToTalk then PlayBack_Command ( storyf ile , i , Dont ) ; 
end; (Output) 

PROCEDURE Save__Composite_Face ; 
Var Speaking : Boolean; 
Begin 

Speaking : =OkToTalk; 
OkTotalk : =True ; 

OutPut ('"', Display) ; {Force first face update; compface was built in Face2) 
OkTotalk : =Speaking ; 
(save composite face) 



end ; 



) 



FUNCTION Enough_Fear_For_A_Good_Story : Boolean; 

(This routine tests to see if the genetic fear level of the current 
goal is greater than some settable minimum. If not the brain isnt 
scared enough to tell a good story, and it should stop talking.) 
Begin 

Enough__Fear_For_A_Good_S tory : = 

SubGoal Ptr (NowPorpoisePtr ) * . ASubGoal . Arousal >FearQu it Level / 
end; (enough fear for a good story) 



(• 



} 
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PROCEDURE Test Arousal MinMax; i • i ,v, an 

(This routine tests to see if the current arousal level is ^ ^han 
the lowest level of arousal so far, and if it exceeds the highest level 
of arousal so far. In either case, it saves the mm and max.) 
Begin 

If AStoryrec . ArousalLevel >ArousalMax then 

ArousalMax : ^AStoryRec . ArousalLevel ; 
If AStoryrec . ArousalLevel<ArousalMin then 
ArousalMin : = AS toryRec . ArousalLevel ; 
end; (Test arousal minmax) . 

( - ) 

PROCEDURE Save_Arousal_Inf o ; ( 

(This routine stores the 3 highest^arousal registers into the 
current storyfile if the storyfile is open.} 
Begin 

StoryFile . f CurrentCommand . Command : ^Arousal Into ; 
Move (Top3Regs , StoryFile . f CurrentCommand . Bytes , 3) ; 
StoryFile . f CurrentCommand . Bytes [4] : =TopRegval ; 
StoryFile . mPut_Command / 
end; (save arousal info) j 

PROCEDURE Try_To_Save_Story ; 
Var FaceShown : Boolean; 

BeginStory , 

Caps , 

ScaredEnuf : Boolean; 
I : integer; 

Begin 

BeginStory : =False / 

FaceShown : =True ; 

If Not OKToTalk then- 

Save_Composi te_Face 
else FaceShown : =*False / 
Convert_Terms ; 
With AStoryRec do 
If ( {StoryFile . fValidStory) or 

(Begin_Story (BeginStory) -0) ) then 
Begin 

FaceShown: =BeginStory; " 
StoryFile. f IOresul t : = 0 ; (clear former errors) 
If (StoryFile . fFileOpen) then 

Begin , 

StoryFile , f CurrentCommand . Command : =CTimeMarker ; 
StoryFile . f CurrentCommand . Long : =NowTime / 
StoryFile . mPut_Command ; 

end ; 

Inc (StoryFile . f CTimesSaved) ; 

ScaredEnuf : =Enough_Fear_For_A_Good_S tory / 

If (NowPorpoisePtroLas tNowPorpoisePtr ) or 

(AStoryRec . Hi tSiNode <>Las tS toryRec . HitSINode) then 

Begin 

If ScaredEnuf then 
Begin 

FaceShown : =Not BeginStory; 
If Not BeginStory then 

Then_Phrase (AnyTerm, True , True ) ; 
If (Not PalDead) then 

If Describe_Story (BeginStory) =0 then; 

end; 

If BeginStory then 

Friend_Phrase (AnyTerm) ; 

end; 

Test_Arousal_MinMax ; 

If StoryFile . fFileOpen then 

Save_Arousal_Inf o; 
If (Not ScaredEnuf) or (PalDead) then 

FaceShown : =Conclude_Story , • 
Lasts toryRec : =AS toryRec ; 

end ; 

If Not FaceShown then 
Save_Composi te_Face ; 
end; (Try to save story) 
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FUNCTION Begin_Story(Var BeginStory: Boolean) : Integer; 
Var Which, 

Result : integer; 
Begin 

With StoryFile do 

If (AStoryRec . Arousa 1 Leve 1 >=MinimumPa m ) then 
Begin 

BeginStory : =True ; 
fValidStory : -True; 

FillChar ( Las tStoryRec , SizeOf (Las tStoryRec) ,255) ; 
ArousalMax : ^AStoryRec . ArousalLevel ; 
ArousalMin : «AStoryRee . Arousa lLevel ; 
If (OutPut ('', TopOf Story) =0) then 
Begin 

Intro_Phrase (Which) ; 
StoryFile . f IOResult : =0 ; 

end 

else Terminate_Run; 
Begin_S tory : = 0 / 

FillChar ( Las tS toryRec , SizeOf ( Las tStoryRec ) ,0) ; 

end 

else 8egin_Story : = - 1 ; 
end; (begin story} j 

FUNCTION Conclude_Story ; Boolean; 
Begin 

Last_Phrase (AiiyTerm) ; 
OutPut ( '', EndOf Story) ; 
StoryFile. f ValidS tory : = False ; 
Conclude_Story:^True; 
end; (conclude story} j 

PROCEDURE Terminate_Run; 
Begin 

If S toryFi le . mClose=0 then; 

IStop the run ....). 
Show error } 
terminate run) » 

{ / , 

FUNCTION Get_Ri_To_Talk_About (Var Source: StrlSO; Var Where: Integer): String; 

Var Next, 

Temp : StrlSO ; 

EndPos : Integer; 
Begin 

Where : «Pos ( ' [ ' , Source) ; 
If WhereoO then 
Begin 

EndPos : = Pos ( ' )•' , Source) ; 

If EndPos=0 then EndPos : =Succ (Length (Source) ) ; 

Get Ri To_Talk_About : =Copy (Source, Where+1 , EndPos- Where - 1) ; 

DeleteTsource, Where ,\EndPos-Where + 1 ) ; 

end 

else Get_Ri_to_Talk_About : ' ; s 
end; (Get ri to talk about} • _ ' _ _ j 

FUNCTION Convert_Ri_To_Pf (Var Source: String): Boolean; 
Var AnRi ; RiPtr; 

Num, f Num: Integer; 
Begin _ ' . 

AnRi : =RiPtr (RiList . Whose_Name (Source, true, num, f num) ) ; 

If AnRioNil then , 

AnRi" .Get_Best_PF_Match (Source) 
else Source:**''; J 
Convert_Ri_To_Pf : =Source<>' ' ; ' 
end; (convert ri to pf ) | _ j 

PROCEDURE Convert_Abstract_RisJTo_Pf X s (Var Source: string); 
Var I, Where : Integer; \ 

RiOrPF : String[20); \ 
Begin \ 
Where :=0; 



\ 
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RiOrPf : =Ge t_Ri_To_Talk_About (Source , Where ) ; 
While (RiOrPf <>' ' ) do 
Begin 

If Convert_Ri_To_Pf (RiOrPf ) then 

Insert (RiOrPf, Source, Where) / 
RiOrPf : »Get_RI_To_Talk_About (Source , Where ) / 

end / 

end; {convert abstract ris to pfs) 

(-- 

PROCEDURE Lower_Case(Var Source: StrlSO) ; 
Var I : integer; 
Begin 

For I:=l to Length (Source ) do 
If (Source [i] >'©' ) and 

(Source [i] <'[' ) then Inc (Source [i] , 32) / 
end; (lower case) 

FUNCTION Determine_Table (Var S: String): Integer; 
Var Temp, Err: integer; 

SubSt : String [10] ; 
Begin \ 
Temp;=0; V 

While (S[temp+1] in ['0'..'9']) and (temp<4 x ) do Inc (Temp) ; 
SubSt : -Copy (S , 1 , Temp) ; 
Delete (S , 1 , Temp) ; 
If SubSto' ' then 
Begin 

Val (SubSt , Temp, Err) ; 
If ErroO then Temp:=0; 

end 

else Temp : =0 ; 
Determine_Table : =Temp; 
end/ (determine table) 

FUNCTION ValidJToken (Var S: String; Var Table: Integer ): \]3oolean ; 
Var TempSt: String; 
Begin 

Table : =-1 ; 

If S [2] in [ ' 0' . . ' 9' ] then 
Begin 

Delete (S, 1,1); 
Table : =De termine_Table (S) ; 

end ; 

Valid_Token : =Table>- 1 ; 
end; (valid token) 

PROCEDURE Get^Synl (Var S: STring; Table: Integer); 
Var St : STring [100] ; 

Suffix : Boolean; 
Begin 

Suffix : =False ; 

Case Table of (tables 0..10) 

0 : St : =Tired_Terms ( false , suffix) ; 

1 i: St : =Signi f_Terms ( false , suffix) ; 

2 V St : =A__Bi t_Terms ( false , suffix) ; 

3 St : =Becoming_Terms ( false , suffix) ; 

4 : St : =Possibly_Terms ( false , suffix) ; 

5 1: St : =Very_Much_Terms (AnyTerm, false, suffix) ; 

6 \: St : =At_The_Terms { false , suffix) ; 

7 ': St : =Right_By_The_Terms { false , suffix) / 

8 \ St : =Near_The_Terms (false, suffix) ; 

9 A St : =Far_From_The_Terms ( false , suffix) ; 

10 : \St : =Very - Soon_Terms (false, suffix) ; 

11 : S t : =Moving_Terms ( false , suffix) ; 



end ; 



/ 



S:=St+S; ' j 

end; (Get syn l) \ . 

j " ~i ) 

PROCEDURE Get_Syn2(Var S: STring; Table: Integer); ^ 

Var ST : String(lOO); , 

Suffix : Boolean; \ 

Begin J 
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Suffix : =False / 
Case Table of 



12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
end ; 

S:«St+S;' 
end; (Get syn 2 } 



St : -Toward_The_Terms (false, suffix) ; 
St : =From_The_Terms {false, suffix) ; 
Boredom_Terms (false, suffix) / 
Better_Terms (AnyTerm, false , suffix) ; 
Little_Terms (AnyTerm, False, suffix) / 
Sort_Of _Terms (AnyTerm, False, suffix) ; 
Usually_Terms (False, suffix) / 
Move_Terms ( false , suffix) ; 
Picnic_Terms (False, suffix) ; 
St : =Pretty_Much_Terms (AnyTerm, False , suffix) ; 
St:=A Lot Terms (AnyTerm", False , suffix) ; 



23 


St 


24 


St 


25 


St 


26 


St 


27 


St 


28 


St 


29 


St 


30 ■ 


St 


31 


St 


32 


St 


33 


St 


34 


St 


end ; 




S : =St+S; 


3} 


(Get syn 



PROCEDURE Get_Syn3(Var S: STring; Table: Integer); 
Var suffix : Boolean; 

St : String [100] ; 

Begin 

Suffix : « False ; 
{ suffix!-(S-' ' ) or (s[l]<>' '); } 
Case Table of (Tables 21.. 30} 

=Looking_For_Terms (False, suffix) ; 
=Really_Terms ( False , suffix) ; 
=Find_Terms (False, suffix) ; 
i =Arousal_Terms ( False , suffix) ; 
: =Fleeing_Terms ( Fa 1 se , suf f ix ) ; 
=Happening_terms (False, suffix) ; 
*Staying_Still_Terms (False, suffix) ; 
: =Escape_Terms ( false , suf fix) ; 
: =Eat_Terms (False , suf fix) ; 
=Rest_Terms ( False , suf fix) ; 
=Nearby_Terms (False, suffix) ; 
=Play_Terms (False, suffix) ; 



PROCEDURE Insert_Synonym(Var S: STring; Table: Integer); 
Begin 

If Table>22 then 

Get_Syn3 (S, Table) 
else If Table>ll then 

Get_Syn2 (S, Table) 
else Get_Synl (S, Table) ; 
end; (insert synonym) 

PROCEDURE Expand_Synonyms (Var S: String; Maxlen: Word); 
Var TokenPos, Table: Integer; 

TempSt : String;. 

Begin 

Convert_Abstract_Ris_To_Pf s (S) ; 

TempSt : *= ' ' ; 

Repeat 

TokenPos : =Pos ( ' ©' , S) ; 
If (TokenPos>0) then 
Begin 

TempSt : ^TempSt +Copy (S , 1 , TokenPos - 1 ) ; 
Delete (S, 1 , TokenPos - 1 ) ; 
If Valid_Token (S, Table) then . 
Insert_Synonym (S , Table) 

else 

Begin 

TempSt : =TempSt + ' ©' ; 
Delete (S, 1, 1) ; 

end; 

end 

Until TokenPos=0; 
TempSt : =TempSt+S ; 
S : =Copy (TempSt , l,MaxLen) ; 
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end; {expand synonyms} j 

PROCEDURE Convert_Ri_To_Rx(Var Source: Stri ng) ; ^ ===== 

{ fp= Purpose : 



-■ rui uuoc > — » — - 

Converts Ris in user identifier names to the actual Rxs that were used 
in SiMod and decision making. 



History : 



03/27/91 : If RiNum=AnyRi, kick out first SE . Ri 



Var RxName, 

RiName : Str80; 

RiNum, 

RxCount, 

Where, I : Integer; 

Pt : PointPtr; 

Begin 

RxName : - ' ' ; 

RiNum : =0 / , f , „ , , L c , . 

RiName : =GetjUjToJTalk_About (Source, Where) ; {Strip ri from identfier} 

While RINameo' ' do 
Begin 

Pt:= RiList. Whose_Name (RiName , True , RiNum , 1 ) ; 
If ptoNil then 
Begin 

RxCount : =RiPtr (Pt) A . Ge t_Best_Rx_Match (Sxx , RxName) ; 
If RxCount =1 then 

Insert (RxName , Source , WHere ) 
else If (Convert_Ri_To_Pf (RiName) ) then 
Begin 

Insert (RiName , Source , Where) ; 
RxName : =RIName 

end 

else Insert ( ' <UNKN0WN> ' , Source , Where) ; 

end 

else 

If (UpCase_String (RiName) = ' HIT' ) then 
Begin 

RxName : =BrainRow A . SxRowRec . RelRow A . SxRowRec . Kind" . RxRec . Name ; 

Insert (RxName , Source , Where) ; 

end 

else 

Insert (' <N0HIT> ' , Source , Where ) ; 
RiName : =Get__Ri JTo_Talk_About (Source, Where) ; {Strip ri from identfier) 

end; 

Expand_Synonyms (Source, 255) ; 
end; {Convert ri to rx) 

PROCEDURE Convert_Terms ; 
Var S : String [150] ; 

P : Pointer; 
Begin 
{ DEBUG 

PutJText ( ' Time : ' +Int_Str (NowTime, 1) , 10, 10, 15, True) ; 

DEBUG ) 

Convert_Ri_To_Rx ( ProblemName ) ; 
If (AStoryRec . Hi tSINodeoNi 1 ) then 
Begin ' 

SGName : -AStoryRec . Hi tSiNode*. Who_Am_I ; 
If SGName<>' ' then 

Convert jRi_to_Rx (SGName) 
end \ 
else SGName : « ' ' ; \ 
If AStoryRec . NextS INode <>Ni 1 then 
Begin I 

NextSGName : =AStoryRec . NextSINode^ . Who_Am_I ; 
If NextSGNameo ' ' then 

Convert_Ri_To_Rx (NextSGName) 

end 

else NextSGName : 

If (AStoryRec . NowStra tPtroNil ) then (Plan/Strategy names already set in 
actions} 

Beg in 



invert ki 

,P . 

\ 
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If TheStratNameo" then 

Conve rt_Ri_To_Rx (TheSt ratName ) ; 
If PlanNameo' ' then 

Conve r t_R i__To_Rx ( P 1 a nName ) / 

end; 

If AStoryRec . DfltDsdoNil then 
Begin 

Df ItDsdName : «AStoryRec . DfltDsd* .Who_Am_I A ; 
If Df ltDsdNameo ' ' then 

Convert_Ri_To_Rx (Df ItDsdName) ; , 

end 

else Df ItDsdName : =* ' '•; ~ 

If AStoryRec . NowDsdoNil then 
Begin 

NowDsdName : ^AStoryRec . NowDsd" , Who_Am_I A / 
If NowDsdNameo ' ' then 

Conve rt_Ri_To_Rx (NowDsdName) / 

end 

else NowDsdName:*' ' ; 
Ge t_Highest_Regs / 

( DEBUG 

With AStoryRec do 
Begin 

Write In (1st, ' [ ' , NowTime, ' 3 - ' ) i 

Writeln (Lst Problem : problem,' Ptr = 
' , seg (nowporpoiseptr A ) , ' : ' , of s (nowporpoisePt r A ) ) ; 

Writeln(Lst, 'Strat : ' ,Thestrat, ' Ptr = 
' , seg (Strat A )/ :', of s (Strati); 

Writeln (Lst , ' Plan : ' , Plan) ; 

WritelnfLst, 'SINode : ',SG,' Ptr- seg (SiNode A ),':', of s (SiNode A ) ) ; 

Writeln (Lst, ' NextNode : ',NextSG,' Ptr = 
' , seg (NextNode") , ' : ' , of s (NextNode") ) ; 

• Writeln(Lst, 'DfltDSD : ' , S tory2 . Df 1 tDSD , ' Ptr = 
' ,seg (AStoryRec. DfltDSD") , ' : ' ,ofs ( AstoryRec . Df 1 tDsd A ) ) ; 

Writeln(Lst, 7 NowDSD : ' , S tory2 . NowDSD , ' Ptr = 
' , seg (AStoryRec . NowDSD A ),':', of s (AstoryRec . NowDsd* ) ) ; 

Writeln(Lst) / 

end ; 
DEBUG } 

end; (convert terms) 

{ -: — ) 

{ Unit Initialization ) 

end. (story2 unit} 
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ENVIRONMENT 



MEANS FOR OBTAINING A 
TEMPORALLY- INCREMENTAL 
SERIES OF " PRESENT " 
CONCRETE REPRESENTATIONS 
(SxCn) OF ENVIRONMENTAL 
SITUATIONS 



- »/sxTn + y / - 



~ */sxTn+Z / — ► 
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MEANS FOR COMPARING 
FOR TIME n+y PREDICTED 
CONCRETE REPRESENTATIONS 
WITH ACTUAL "PRESENT" 
REPRESENTATIONS TO IDENTIFY 
A SELECTED MINIMUM 
DIFFERENCE PAIR AND 
STORING THE SELECTED 
SxCn+y, SxTn+y PAIR 
AND THE SxC 



- j SxCn*y / 



» 

-J SxCn«2 / 



-j SxCn *i / 



m 

j SxCn / 



MEANS FOR CHOOSING A 
MODIFICATION OF AN SxCn 
OBJECT CHARACTERISTIC (PF) 
LIKELY TO -DECREASE THE 
DIFFERENCE BETWEEN 
SxCn+y AND SxTn'+y 



MEANS FOR OBTAINING AN 
INCREMENTAL SERIES OF "PREDICTED" 
CONCRETE REPRESENTATIONS (SxTn) 
COMPUTED IN SIMULATION FROM 
AN SxCn 



/ SxCn* / 



- »/ SxCn + y/ - 



/ SxTn+y/ - 



MEANS FOR COMPARING 
THE MODIFIED PREDICTION 
WITH THE ACTUAL 
REPRESENTATION TO 
ADJUDGE ANY FURTHER 
DIFFERENCE 



MEANS FOR COMPUTING 
SxTn 2 +y FROM SxCn 2 



COMPUTER 
STORAGE 

MEANS 



MEANS FOR OPTIONALLY 
CHOOSING TO FURTHER MODIFY 
A PF OR TO SAVE THE 

\NEW "LEARNED" PF TO STORAGE AND 
Vs AN OBJECT CHARACTERISTIC 
OF THE SELECTED OBJECT 
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STEPS IN A COMPUTER PROGRAM FOR IMPLEMENTING 
RELEVANCY LEARNING IN AN AUTONOMOUS DECISION SYSTEM 



INITIATING AND STORING REPRESENTATION DATA REGARDING A SET OF 
HIERARCHICALLY -ORGANIZED , RELEVANT., NON-LINGUISTIC RELATIONAL 
"SELF"-SITUATIONS COMPRISING A SET OF HIERARCHICALLY -ORGANIZED 
ABSTRACT SELF-PROBLEM REPRESENTATIONS, AND IN ASSOCIATION WITH 
ESSENTIALLY EACH OF SUCH ABSTRACT SELF-PROBLEM REPRESENTATIONS, 
A SET OF HIERARCHICALLY-ORGANIZED ABSTRACT SELF-PLAN 
REPRESENTATIONS EACH COMPRISING A SET OF ABSTRACT SELF-SUBGOAL 
REPRESENTATIONS _ 

I 

PROCESSING DATA REGARDING SUCH SELF-PROBLEM REPRESENTATIONS AND 
SUCH SELF-PLAN REPRESENTATIONS TO PROVIDE "SELF-PAIN" AND "SELF- 
PLEASURE" REPRESENTATIONS HAVING ASSESSABLE QUANTITIES 



PROCESSING DATA REGARDING REPRESENTATION ELEMENTS OF SUCH 
TEMPORALLY-INCREMENTAL SERIES, RESPECTIVELY, OF "PRESENT" 
CONCRETE SELF-SITUATION REPRESENTATIONS OF SUCH RESPECTIVE 
ENVIRONMENTAL SITUATIONS TO IDENTIFY A FIRST SERIES OF SUCH 
REPRESENTATION ELEMENTS WHICH RESULT IN A SELECTED LEVEL OF 
UNPREDICTED "SELF-PAIN" 



I 



PROCESSING DATA REGARDING SUCH FIRST SERIES OF SUCH 
REPRESENTATION ELEMENTS TO CREATE A LEARNED SELF-PROBLEM 
REPRESENTATION 



PROCESSING DATA REGARDING SUCH REPRESENTATION ELEMENTS OF SUCH 
TEMPORALLY-INCREMENTAL SERIES, RESPECTIVELY, OF "PRESENT" 
CONCRETE SELF-SITUATION REPRESENTATIONS OF SUCH RESPECTIVE 
ENVIRONMENTAL SITUATIONS TO IDENTIFY A SECOND SERIES OF SUCH 
REPRESENTATION ELEMENTS WHICH RESULT IN A SELECTED LEVEL OF 
UNPREDICTED y "SELF-PLEASURE" 



PROCESSING DATA REGARDING SUCH SECOND SERIES OF SUCH 
REPRESENTATION ELEMENTS TO CREATE A LEARNED SELF-SUBGOAL 
REPRESENTATION 
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SUMMARY OF PRIMARY SOFTWARE SYSTEMS AND FUNCTIONS 

World: 

Data Building/Saving Interfaces 

Writing RF data Writing RFM data 

Writing PFM data Writing Ri/Pi/ data 

Writing r data Writing Si data 

Writing dsd data Writing PF data 

Writing SCAN data Writing Metabolism Choices 

Object Building/Saving Interfaces 
Selecting an Object Name 
Selecting RF's 

Selecting Doings and Animation 

Selecting Meta-PF's 
Meta-PF Building/Saving Interfaces 

Writing Meta-PF's 
World Building/Saving Interfaces 

Selecting a World Name 

Selecting an Object 

Plunking an Object 
World Incremental Simulation 



ADS : 

Data Building Interfaces 

Writing Problem Nodes: Writing Plan Nodes: hierarchy, 

hierarchy, Sip,.dD Sigp, dD, dTd, dc 

Writing Emotional Attributes 
Writing Facial/Emotional Attributes 

Writing SCAN mo.des Writing Questions 

Writing Story/Answer Snippets 
' Writing Story/Answer Synonyms 
Selecting ADS Attributes 
Selecting IQ 

Selecting Emotion/Face Attributes 
Selecting Story Start/Stop Attributes 
Overall ADS - Run Systems 

Sensing What Situation 
Recognizing What Situation 
Deciding What Problem Node 
Deciding What Plan Node 
Look- For System to SCAN 
Emotional/Facial System 
Story-Telling System 
Quest ion- Answering System 
Predicting Threats and Opportunities 
Making Action Decisions « 



Run : 

Selecting Screens To Show: World, 

Radar, Metabolism, Face 
Selecting a World 
Plunking an ADS 
Selecting Tell/Story Modes 
Selecting Run Modes 
Stopping and Starting 
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Stor-tjPOL World: Untitled 
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'Figure 1: Window features 
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Tile View Edit Run Setup Story 



StoryPAL Uorld: JUNGLE 



TineStcp: 24 



File U ie^ Edit Ran Setup Story 
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Figure 2: The Main Screen: A - No menus 
open, and B - the View menu open 
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Open World 



Pick world to be opened. 
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Figure 3 : What you see when you click 
on Open 
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Options Select 




Name: Pat 


Select Character Shape 

□ Antelope DlCrill (vj 
■ ftnt DLicn 

□ Deachbai DHeat 

□ Coral □Natvmau 

□ Dragon aNatvuDMn 

□ Garden DRabbit 

□ Grass DSardine 

□ Harpoon DShip 
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Figure 4 : The Thing- Editor window, with 
several sub- windows 
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Run 



Setup Story) Brain 
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World: Untitled 



Thing Builder : : : x : : 



Opt ions 



Select 



Name: 



Select Character Color 

□ Blue 

□ White l 

□ Red * 

□ Yellou 

□ Mixed hues 



File Uiew Edit Run Setup Storij Brain 
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World: Untitled 
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To select behavior, pick 
Pick one: 



up to the stated number from each group: 



n Li ve-anirnal-like 

O "-But no metabolism 

□ Li Ye-veqet able-like 

□ Mineral-like 

n Mixed/other-like 



Pick zero to 2: 

□ Mau be eaten 
O Must eat 



Pick no more than 
one per food chain: 

a Top 1st food chain 
O Hiqh 
O Lou 

O Bot'm k 

□ Top 2nd food chain * 
O Hiqh u X 

□ Lou 

□ Bot'm 



FIG. 



Fill 
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StoruPPtL World: ftFRICft 
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Select other behaYior^types^ 
As a 'bottom' preg: 



if your thing matches the headings 



□ Staus in one place 

□ Drifts- ( 

CD Moves by decision 



As a 'lou' animal: 

A 

□ Safe uhen at home 
O Safe uhen; near Mop' 
a Stores food, loui 
Q Group/herd behavior 

[StoryPal-jall above] 



As a 'high' animal: 

m Avoids home of preu 

□ Group/herd behavior 

[Note: If uou make 
qour thinq J lou' or; 
'hiqh' in BOTH food 
chains- don't pick 
group/nerd behavior} 

As a Home for thing! 

□ 'Lou' - food chain 1 

□ 'Lou' - food chain 2 



Prey 



Next 
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Select the other types of behavior your thing has: 
Pick no more than 1 from each group: 



□ Poisonable 
CD Poison-bi ter 



o Fetch throun things 
□ Throws thinqs 
CD Fetchable thing 



CD Storable food 

C3 Mate eats food store 



CD Ambushable 
• CD Ambusher 
CD 1st Ambushinq Place 
a 2nd. Ambushing Place 
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Select your thing's relation to humanoids <StoryPAL>, if any: 



Pick no more than 1 
from this page: 



CD Place for fire/cook 

CD Picnic food 

C3 Place for picnic 

CD Place to store food 

CD Obstacle-like 

a Player of 'catch' 

CD Throuable thinq 

CD Fetches thrown thing 



CD qardeninq tool 
CD Place to store tools 
O place for garden 
CD seed 



CD Home 

CD Food to store G home 

CD llissile-like 

\ 

CD Hurl able impaler 
M Impalable-killable . 



Done 



Prev 



Next 



Page: A 




FlG a 25 




FlO D 26 

!Q Setting 



File Uiew Edit Run Setup S torij Brain 



StoruPflL Morlcl: Untitled 



FlGo 2*7 



C "1 

A — » 




B 



FlGo 28 



Hi 



A- 
D~ 
C- 

D- 
E- 

F- 
G 



Q 

* A 
71 



clr 



X 



TITLE 



? Normal < 

^ ^ 

[J Grid [X]Trlm* 



( Import PCX )<— 



1 |S I 3 |4 |5| BI7l8l9ll0l ljhEll3ll4llSh^ p— ) fir- a 
17M8ll9|gQ|gl|g5|g3|g4|g5|g6lg7lg8l l U °rie) 



1H 



i 

Q 



i 



L 
-M 

-o 
-p 



FlGo 29 



l h e ICxperl System Main Screen Menus 



[ File U iew 
I S toryPAL / 




Edi t Run 
H-Thing 
2- I cons 

C 1 ass 

Chars . 

Dec i s i on 

•♦•Chars 

S i tuat ion 

Me ta-PF 



Setup 



U ieu 



K- Kegion 
■X" Radar 
K- Face 

X- Li fe S icjns 
X* Menory 



File 



□pen . . 
Sa^e . . 
C lose 
New 

Change D i r 
E rase . . 
About . , 
Qu i t 




Setup 
X-Systen Pa th 

Icon Path 
X-S tory De 1 ay 
X-User Name 
K-JoyS t iclc 
X-S tick Speed 
X-Brain IQ 

Head On 
x s ave 



On 

Au to-S top 
Pa i n Leve 1 
Fear Level 



menus .fomp 



FlGo 3 



File U ieu Edit 



Run Setup 
AFRICA 



Story Brain 



Story PAL World: 




□il ~ 


J~ Strateqn 




1 Opt ions 






NAME: G30 CH13 J 






assure a dead CHI 3 


qet Gil G12 CHomelO 


qet Gl 1 L loplJ<* — 




seeinq a struck CHI] 
near [HI 3 a at CI up] 

w 


safe Q6 CHorneI3 
28 CHorneI3 


safe G6 CTopI3 £5 
G8 CTopI3 ■ 





FIG. 30A-I 



[Get_Next_SX] - FantasyTime False 
[Deep Thought] - Ctime : 1 

Scanning strategy find something to do rfs: 

No rf s present . 
Scanning @14 rfs: 

No rfs present . 

SxC (1) : 

RxName X Y ' Decision Speed Rads Reason Situation 



StoryPAL 


232 


214 


NIL 


0 


1 


. 67 


MARV 


NIL 


lion 


243 


254 


race to Lowl 


0 


2 


. 62 


RF-SCAN 


LowINear 


tree 


108 


50 


don' t move 


0 


6 


.28 


R F - S CAN 


Anything 


native 


26 9 


10 


wander 


0 


1 . 


. 58 


RF-SCAN 


Anything 


rabbi t 


2 


259 


explore 


0 


4 , 


.43 


RF- SCAN 


Anything 


rabbit 


257 


111 


explore 


0 


5 . 


, 99 


RF-SCAN 


Anything 


deer 


441 


314 


patrol 


0 


1 , 


, 84 


RF - S CAN 


Anything 


grass 


29 


326 


don ' t move 


0 


5 . 


26 


RF-SCAN 


Anything 


grass 


323 


347 


don ' t move 


0 


0 . 


38 


RF-SCAN 


Anything 


grass 


335 


86 


don ' t move 


0 . 


5 . 


83 


RF-SCAN 


Anything 



[What_Now_Porpoise] : FantasyTime False 
Problem: ©33 [HI] 
Row : 1 

Dsd: ©27 [HI] 180 20 2H1 

Reg: TIRED 
Value: 10 
[Set_New_Problem] 
[Find_Strategy] 

[Find_Starting_Place_In_Strategy] - FantasyTime False 
SUB-P/SG NAME: seeing a struck [HI] 
SUB-P/SG NAME: safe @6 [Homel] 
SUB-P/SG NAME : safe @6 [Topi] 
SUB-P/SG .NAME: near [HI] & at [Imp] 
SUB-P/SG NAME: @8 [Homel] 
SUB-P/SG NAME: @8 [Topi] 
HIT Strategy 
Strat . :@30 [HI] 

Planrget Oil ©12 [Homel] 
Row : 2 
SubGoal: @8 [Homel] 
Row : 1 



[Strat . Make_Decision] 

[Predicting Strategy] Try: 1 of 25 

Trial DSD: ©19 ©12 [Homel] 
[Get__Next_SX] - FantasyTime True 

Ending SxT ( 1 ) : , 

RxName X ' Y Decision Speed Rads Reason Situation 



StoryPAL 
lion 


219' 


197 


©19 ©12 [Homel] 


21 


2 


.22 


MARV 


NIL 


236 


230 


race to Lowl 


24 


1 


. 84 


RF-SCAN 


LowINear 


tree 


108 


50 


don' t move 


0 


6 


. 13 


RF-SCAN 


Anything 


native 


268 


1 


wander 


10 


4 


. 70 


RF-SCAN 


Anything 


rabbit 


11 


259 


explore 


10 


6 . 


, 21 


RF-SCAN 


Anything 


rabbit 


264 


104 


explore 


10 


0 . 


. 67 


RF-SCAN 


Anything 


deer 


435 


292 


patrol 


22 


1 . 


, 84 


RF-SCAN 


Anything 


grass 


' 29 


326 


don ' t move 


0 


0 . 


67 


RF-SCAN 


Anything 


grass 


3 23 


347 


don ' t move 


0 


1 . 


52 


RF-SCAN 


Anything 


grass 


3 3% 


86 


don ' t move 


0 


0 . 


00 


RF-SCAN 


Anything 



[What_Now_Porpoise] : FantasyTime True 
[Next__N Subgoa t ls_Reached] - FantasyTime True 

SUB-P7SG NAME: safe ©6 [Homel] 

No next (n) subgoal found. 

[Predicting Strategy] Try: 2 of 25 

Trial DSD : ©19 ©12 [Homel] 
[Get_Next_SX] \ FantasyTime True 



FIG. 304-2 



Ending SxT (2 ) : 
RxName X 



Decision 



Speed Rads Reason Situation 



StoryPAL 

lion 

tree 

native 

rabbi t 

rabbit 

deer 

grass 

grass 

grass 



206 180 
225 208 



108 
267 



50 
10 



13 268 

273 104 

429 270 

29 326 

323 347 

335 86 



@19 ©12 [Homel] 
race to Lowl 
don't move 
wander 
explore 
explore 
patrol 
don ' t move 
don ' t move 
don ' t move 



21 


2 


. 22 


MARV 


NIL 


24 


2 


. 05 


RF- 


SCAN 


LowINear 


0 


6 


. 13 


RF- 


SCAN 


Anything 


10 


4 . 


. 70 


RF- 


SCAN 


Anything 


10 


5 , 


. 01 


RF- 


SCAN 


Anything 


10 


6 , 


. 27 


RF- 


SCAN 


Anything 


22 


1 , 


. 84 


RF- 


SCAN 


Anything 


0 


0 , 


, 67 


RF- 


SCAN 


Anything 


0 


1 , 


, 52 


RF- 


SCAN 


Anything 


0 


0 . 


00 


RF- 


SCAN 


Anything 



[What_Now_Porpoise] : FantasyTime True 
[Next_N Subgoals_Reached] - FantasyTime True 

SUB-P7SG NAME: safe @6 [Homel] 

No next (n) subgoal found. 

[Predicting Strategy] Try: 3 of 25 
' Trial DSD: ©19 ©12 [Homel] 
[Get Next_SX] - FantasyTime True 



Ending SxT ( 3 ) : 




Decision 


RxName 


X 


Y 


StoryPAL 


193 


163 


©19 ©12 [Homel] 


1 ion 


211 


188 


race to Lowl 


tree 


108 


50 


don ' t move . 


native 


266 


19 


wander 


rabbi t 


16 


258 


explore 


rabbit 


265 


96 


explore 


deer 


423 


248 


patrol 


grass 


29 


326 


don' t move 


grass 


323 


347 


don' t move 


grass 


335' 


86 


don' t move 



Speed 


Rads 


Reason 


Situation 


21 


2 


. 22 


MARV 


NIL 


24 


2 


. 17 


RF- SCAN 


LowINear 


0 


6 . 


. 13 


RF-SCAN 


Anything 


10 


4 . 


.70 


RF- SCAN 


Anything 


10 


1 . 


.20 


RF- SCAN 


Anything 


10 


2 


.36 


RF- SCAN 


Anything 


22 


1 . 


. 84 


RF-SCAN 


Anything 


0 


0 , 


, 67 


RF- SCAN 


Anything 


0 


1 , 


. 52 


RF-SCAN 


Anything 


0 


0 . 


, 00 


RF-SCAN 


Anything 



[What JSJow_Porpoise] : FantasyTime True 
[Next_N Subgoals_Reached] - FantasyTime True 
SUB-P7SG NAME: safe ©6 [Homel] 

No next (n) subgoal found. 

[Predicting Strategy] Try: 4 of 25 

Trial DSD: ©19 ©12 [Homel] 
[Get_Next_SX] - FantasyTime True 



Ending SxT (4 ) : 
RxName X 



Deci s ion 



Speed Rads Reason Situation 



StoryPAL 
lion 
tree! 
native 
rabbit 
rabbit 
deer 
grass 
grass 
grass 



180 


146 


©19 ©12 [Homel] 


21 


2 


. 22 


MARV 


NIL 


196 


168 


race to Lowl 


24 


2 


. 19 


RF-SCAN 


LowINear 


108 


50 


don't move 


0 


6 


. 13 


RF-SCAN 


Anything 


265 


28 


wander 


10 


4 . 


.70 


RF-SCAN 


Anything 


12 


248 


explore 


10 


1 . 


. 96 


RF-SCAN 


Anything 


276 


85 


move from Lowl 


16 


0 , 


, 75 


RF-SCAN 


LowINear 


417 


226 


patrol 


22 


1 . 


, 84 


RF-SCAN 


Anything 


29 


326 


don ' t move 


0 


0 . 


,67 


RF-SCAN 


Anything 


323 


347 


don' t move 


0 


1 . 


, 52 


RF-SCAN 


Anything 


335 


86 


don' t move 


0 


0 . 


, 00 


RF-SCAN 


Anything 



[Whatl_Now_Porpoise] : FantasyTime True 
[Next^N Subgoals_Reached] - FantasyTime True 
SUB-*P7SG NAME: safe ©6 [Homel] 
No next(n) subgoal found. 

[Predicting Strategy] Try: 5 of 25 

Trial DSD: ©19 ©12 [Homel] 
[Get_Next__SX] - FantasyTime °True 

I 



FIG. 30A-3 



5 l/<22. 



Ending SxT ( 5) : , 

RxName X Y Decision Speed Rads Reason Situation 



StoryPAL 


167 


129 


©19' ©12 [Homel] 


21 


2 


. 21 


MARV 


NIL 


lion 


181 


148 


race to Lowl 


24 


2 


. 20 


RF- SCAN 


LowINear 


tree 


108 


50 


don ' t move 


0 


6 


. 13 


RF- SCAN 


Anything 


native 


264 


37 


wander 


10 


4 


. 70 


RF- SCAN 


Anything 


rabbit 


15 


238 


explore 


10 


1 


. 22 


RF-SCAN 


Anything 


rabbit 


278 


94 


explore 


10 


5 


. 01 


RF-SCAN 


Anything 


deer 


411 


204 


patrol 


22 


1 


. 84 


RF-SCAN 


Anything 


grass 


29 


326 


don ' t move 


0 


0 


. 67 


RF-SCAN 


Anything 


grass 


323 


347 


don ' t move 


0 


1 


. 52 


RF-SCAN 


Anything 


grass 


335 


86 


don't move. 


0 


0 


. 00 


RF-SCAN 


Anything 


[What Now 


Porpoise ) 


: FantasyTime True 












[Next N Subgoals Reached] - FantasyTime 


True 










SUB-P7SG NAME: safe ®6 [Homel] 












No next (n) subgoal found. 












[Predicting Strategy] Try: 6 of 25 












Trial DSD: ©19 ©12 [Homel] 












[Get_Next_ 


_SXj ■ 


- FantasyTime True 












Ending SxT { 6) : 














Situation 


RxName 


X 


Y 


Decision 


Speed 


Rads 


Reason 


StoryPAL 


154 


112 


©19 ©12 [Homel] 


21 


2 


21 


MARV 


NIL 


lion 


166 


128 


race to Lowl 


24 


2 . 


21 


RF-SCAN 


LowINear 


tree 


108 


50 


don ' t move 


0 


6 . 


13 


RF-SCAN 


Anything 


native 


263 


46 


wander 


10 


4 . 


70 


RF-SCAN 


Anything 


rabbit 


24 


237 


explore 


10 


0 . 


04 


RF-SCAN 


Anything 


rabbit 


277 


103 


explore 


10 


4 . 


63 


RF-SCAN 


Anything 


deer 


405 


182 


patrol 


22 


1 . 


84 


RF-SCAN 


Anything 


grass 


29 


326 


don' t move 


0 


0 . 


67 


RF-SCAN 


Anything 


grass 


323 


347 


don 7 t move 


0 


1 . 


52 


RF-SCAN 


Anything 


grass 


335 


86 


don' t move 


0 


0 . 


0 0 


RF-SCAN 


Anything 



[What_Now_Porpoise J : FantasyTime True 

Failed worse because of higher problem: the [Hl]'s bite-OUCH 
Strategy prediction Failed. 



(S) LOST PLAN! 
Problem: ©33 [HI] 

Row : 1 
SubGoal : @8 [Homel] 

Row : 1 

Dsd: ©27 [HI] 180 20 2H1 

Reg : TIRED 
Value: 10 
[Problem . Make_Decision] 



StoryPAL 


registers 














HURT 




0 


HUNGER 


52 


TIRED 




12 


HURTRATE 0 


HUNGERRATE 


0 


TIREDRATE 


0 


MOTORRATE 




58 


FEAR 23 0 


SURPRISE 




0 


DISAPPOINT 


230 


FRUSTRATED 




128 


HOPELESS 0 


PAIN/JOY 


127 


TOTAL 


207 




0 


0 






0 




0 






0 


0 


SxX ( 1 ) ; 


















RxName 


X 


Y 


Decision 




Speed 


Rads 


Reason Situation 


lion 


236 


230 


race to Lowl 


24. 


1 


. 84 


PLUNKED LowINear 


tree 


108 


50 


don' t move 




0 


5 


. 36 


PLUNKED Anything 


native 


268 


1 


wander 




10 


4 


. 70 


PLUNKED Anything 


rabbi t 


671 


75 


explore 




10 


5 


. 33 


PLUNKED Anything 


rabbit 


726 


341 


explore 




10 


5 


. 09 


PLUNKED Anything 


rabbit 


1 


254 


explore 




10 


0 


.47 


PLUNKED Anything 


rabbi t 


261 


102 


explore 




10 


1 


. 05 


PLUNKED Anything 


deer 


435 


295 


patrol 




19 


1 


. 84 


PLUNKED Anything 


grass 


29 


326 


don ' t move 




0 


0 


. 50 


PLUNKED Anything 


grass 


323 


347 


don ' t move 




0 


2 


. 17 


PLUNKED Anything 


grass 


758 


94 


don ' t move 




0 


3 


.37 


PLUNKED Anything 



FIG. 



3 0A-V 52/62, 



grass 
StoryPAL 



335 86 
226 193 



don ' t move 
©27 [HI] 



[Get_Next_SX] - FantasyTime False 
(Deep Thought] - Ctime : 2 
Scanning strategy ©30 [HI] 



Warm 
Medium 
Cool 

Mixed hues 
Yellow 
Scanning ©3 3 
Warm 
Yellow 
Medium 



HEAT 
SIZE 
HEAT 
GREEN 
GREEN 
[HI) rfs: 
HEAT 
GREEN 
SIZE 



rfs : 
171 
86 
1 

128 
1 

171 
1 

86 



255 

170 

85 

255 

127 

255 
127 
170 



0 

21 



4 . 03 
1 . 84 



PLUNKED Anything 
MARV NIL 



SxC {2} 



RxName 


" X 


Y 


Decision 


Speed Rads 


Reason 


Situation 


StoryPAL 


226 


193 


NIL 


21 


1 


. 84 


MARV 


NIL 


1 ion 


236 


230 


race to Lowl 


24 


1 


. 84 


RF-SCAN 


LowINear 


tree 


108 


50 


don ' t move 


0 


5 


,36 


RF- SCAN 


Anything 


native 


268 


1 


wander 


10 


4 


. 70 


RF-SCAN 


Anything 


rabbit 


1 


254 


explore 


10 


0 


.47 


RF- SCAN 


Anything 


rabbi t 


261 


102 


move from Lowl 


10 


1 , 


. 05 


RF-SCAN 


LowINear 


deer 


435 


295 


patrol 


19 


1 . 


, 84 


RF- SCAN 


Anything 


grass 


29 


326 


don't move 


0 


0 . 


50 


RF-SCAN 


Anything 


grass 


323 


347 


don ' t move 


0 


2 . 


17 


RF-SCAN 


Anything 


grass 


335 


86 


don ' t move 


0 


4 . 


03 


RF-SCAN 


Anything 



(What_Now_PorpoiseJ 
Problem: ©33 [HI] 
Row : 
Dsd : 
Reg : 
Value : 



FantasyTime False 



180 20 2H1 



1 

©27 [HI] 
TIRED 
10 

[Find_Strategy] 

[Find_Starting_Place_In_Strategy] - FantasyTime False 
SUB-P/SG NAME: seeing a struck [HI] 
SUB-P/SG NAME: safe @6 [Homel] 
SUB-P/SG NAME: safe ©6 [Topi] 
near [HI] & at 
©8 [Homel] 
©8 [Topi] 



SUB-P/SG NAME: 
SUB-P/SG NAME: 
SUB-P/SG NAME: 
HIT Strategy 
Strat . :@30 [HI] 
Plan:get ©11 ©12 
Row : 2 
SubGoal: ©8 [Homel] 
Row : 1 



[Imp] 



[Homel] 



[Strat . Make_Decision] 

[Predicting Strategy] Try: 1 of 25 

Trial DSD: ©19 ©12 [Homel] 
[Get_Next_SX] - FantasyTime True 



Ending SxT ( 1 ) : 




RxName 


X 


Y 


StoryPAL 


212 


176 


lion 


229 


206 


tree 


108 


50 


native 


267 


10 


rabbi t 


10 


257 


rabbit 


266 


87 


deer 


429 


276 


grass 


29 


326 


grass 


323 


347 


grass 


335 


86 



Decision 



Speed 


Rads • 


Reason 


Situation 


21 


2 


. 26 


MARV 


NIL 


24 


1 


. 83 


RF-SCAN 


LowINear 


0 


6 


. 13 


RF-SCAN 


Anything 


10 


4 


. 70 


RF-SCAN 


Anything 


10 


5 


, 96 


RF-SCAN 


Anything 


16 


1 , 


. 20 


RF-SCAN 


LowINear 


19 


1 , 


, 84 


RF-SCAN 


Anything 


0 


0 . 


67 


RF-SCAN 


Anything 


0 


1 . 


52 


RF-SCAN 


Anything 


0 


0 . 


00 


RF-SCAN 


Anything 



[©19 ©12 [Homel] 
\race to Lowl 

don' t move 

wander 

explore 

move from Lowl 
patrol 
don' t move 
move 
move 



don ' t 
don ' t 



\ 



FIG. 30A-5 



5 



(What_Now_Porpoise] : FantasyTime True 
[Next_N Subgoals^Reached] - FantasyTime True 

SUB-P7SG NAME : safe ©6 [Home I] 

No next (n) subgoal found . 

[Predicting Strategy] Try: 2 of 25 

Trial DSD : ©19 ©12 [HomelJ 
[Get_Next_SXj - FantasyTime True 

Ending SxT (2 ) : 

RxName X Y Decision Speed Rads Reason Situation 



StoryPAL 


198 


159 


©19 ©12 [HomelJ 


21 


2 


. 26 


MARV 


NIL 


lion 


217 


185 


race to Lowl 


24 


2 


. 09 


RF- SCAN 


LowINear 


tree 


108 


50 


don ' t move 


0 


6 


. 13 


RF- SCAN 


Anything 


native 


266 


19 


wander 


10 


4 


70 


RF-SCAN 


Anything 


rabbit 


19 


259 


explore 


10 


5 


98 


RF- SCAN 


Anything 


rabbit 


272 


94 


explore 


10 


5 


42 


RF-SCAN 


Anything 


deer 


423 


257 


patrol 


19 . 


1 


84 


RF-SCAN 


Anything 
Anything 


grass 


29 


326 


don ' t move 


0 


0 


67 


RF-SCAN 


grass 


323 


347 


don' t move 


0 


1 


52 


RF-SCAN 


Anything 


grass 


335 


86 


don' t move 


0 


0 


00 


RF-SCAN 


Anything 



[What_Now_Porpoise] : FantasyTime True 
[Next_N Subgoals_ Reached] - FantasyTime True 

SUB-P/SG NAME: safe @6 [Home I] 

No next (n) subgoal found. 

[Predicting Strategy] Try: 3 of 25 

Trial DSD: ©19 ©12 [HomelJ 
[Get_Next_SX] - FantasyTime True 



Ending SxT(3) ; 
RxName X Y 



Decision 



Speed Rads Reason Situation 



StoryPAL 


184 


142 


©19 ©12 [HomelJ 


21 


2 


.26 


MARV 


NIL 


lion 


202 


165 


race to Lowl 


24 


2 


. 20 


RF-SCAN 


LowINear 


tree 


108 


50 


don' t move 


0 


6 


. 13 


RF-SCAN 


Anything- 


native 


265 


28 


wander 


10 


4 


70 


RF-SCAN 


Anything 


rabbit 


27 


253 


explore 


10 


0 


60 


RF-SCAN 


Anything 


rabbit 


284 


83 


move from Lowl 


16 


0 


72 


RF-SCAN 


LowINear 


deer 


417 


238 


patrol 


19 


1 


84 


RF-SCAN 


Anything 


grass 


29 


326 


don ' t move 


0 


0 . 


67 


RF-SCAN 


Anything 


grass 


3 23 


347 


don ' t move 


0 


1 . 


52 


RF-SCAN 


Anything 


grass 


335 


86 


don ' t move 


0 


0 . 


00 


RF-SCAN 


Anything 


[What_Now_ 


_Porpoise ] 


: FantasyTime True 













[Next_N Subgoals_Reached] - FantasyTime True 
SUB-P7SG NAME: safe ©6 [HomelJ 
No next(n) subgoal found. 



[Predicting Strategy] Try: 4 of 25 

Trial- DSD: ©19 ©12 [HomelJ 
[Get_Next_SX] - FantasyTime True 
Ending SxT (4'j : 

RxName X Y Decision 



Speed Rads Reason Situation 



StoryPAL 
1 ion 
tree 
native 
rabbit 
rabbit 
deer 
grass 
grass 
grass 



170 
1^8 7 
lb 8 
2|6 4 
^3 2 
274 
4l\ 



125 
146 
50 
37 
261 
82 
219 
2 \ 3 2 6 
323\347 
335 \8 6 



©19 ©12 [HomelJ 


21 


2 


.26 


MARV 


NIL 


race to Lowl 


24 


2 


. 23 


RF-SCAN 


LowINear 


don ' t move 


0 


6 


. 13 


RF-SCAN 


Anything 


wander 


10 


4 


70 


RF-SCAN 


Anything 


explore 


10 


5 


25 


RF-SCAN 


Anything 


explore 


10 


3 


09 


RF-SCAN 


Anything 


patrol 


19 


1 


84 


RF-SCAN 


Anything 


don ' t move 


0 


0 


67 


RF-SCAN 


Anything 


don ' t move 


0 


1 . 


52 


RF-SCAN 


Anything 


don ' t move 


0 


0 . 


00 


RF-SCAN 


Anything 



[What__Now__Porpois^] : FantasyTime True 
[Next_N Subgoals_ReachedJ - FantasyTime True 
SUB-P7SG NAME: safe ©6 [HomelJ 
No next (n) subgoal found. 



FIG. 30A-6 



[Predicting Strategy] Try; 5 of 25 

Trial DSD: ©19 ©12 [Homel] 
(Get Next_SX] - FantasyTime True 



Ending SxT (5) : , 

RxName X Y Decision Speed Rads Reason Situation 



StoryPAL 


156 


108 


©19 ©12 [Homel] 


21 


2 


. 26 


MARV 


NIL 


lion 


171 


127 


race to Lowl 


24 


2 


. 25 


R F - S CAN 


LowINear 


tree 


108 


50 


don ' t move 


0 


6 


. 13 


RF-SCAN 


Anything 


na t ive 


263 


46 


wander 


10 


4 


. 70 


RF-SCAN 


Anything 


rabbit 


40 


255 


explore 


10 


0 


.62 


RF- SCAN 


Anything 


rabbit 


279 


73 


explore 


10 


0 


. 98 


RF-SCAN 


Anything 


deer 


405 


200 


patrol 


19 


1 


. 84 


RF- SCAN 


Anything 


grass 


29 


326 


don ' t move 


0 


0 


. 67 


RF-SCAN 


Anything 


grass 


323 


347 


don ' t move 


0 


1 


. 52 


RF-SCAN 


Anything 


grass . 


335 


66 


don ' t move 


0 


0 


. 00 


RF-SCAN 


Anything 


[What Now 


Porpoise] 


: FantasyTime True 












[Next N Subgoals Reached] - FantasyTime 


True 










SUB-P/SG 


NAME: safe ©6 [Homel] 












No next (n) subgoal found. 












[Predicting Strategy] Try: 6. of 25 












Trial DSD: ©19 ©12 [Homel] 












[Get_Next_ 


SX] - 


- FantasyTime True 












Ending SxT ( 6 ) : 
















RxName 


X 


Y 


Decision 


Speed 


Rads 


Reason ' 


Situation 


StoryPAL 


142 


91 


©19 ©12 [Homel] 


21 


2 . 


26 


MARV 


NIL 


lion 


156 


108 


race to Lowl 


24 


2 . 


24 


RF-SCAN 


LowINear 


tree 


108 


50 


don ' t move 


0 


6 . 


13 


RF-SCAN 


Anything 


native 


262 


55 


wander 


10 


4 . 


70 


RF-SCAN 


Anything 


rabbit 


30 


259 


explore 


10 


3 . 


56 


RF-SCAN 


Anything 


rabbi t 


284 


64 


explore 


10 


0 . 


94 


RF-SCAN 


Anything 


deer 


399 


181 


patrol 


19. 


1 . 


84 


RF-SCAN 


Anything 


grass 


29 


326 


don ' t move 


0 


0 . 


67 


RF-SCAN 


Anything 


grass 


323 


347 


don' t move 


0 


1 . 


52 


RF-SCAN 


Anything 


grass 


335 


86 


don ' t move 


0 


0 . 


00 


RF-SCAN 


Anything 



[What_Now_Porpoise] : FantasyTime True 
[Next_N Subgoals_Reached] - FantasyTime True 

SUB-P7SG NAME: safe ©6 [Homel] 

No next (n) subgoal found. 



FIG. 32 



S PAC I O- TEMPORAL RELATIONSHIPS r 
IN SOFTWARE EMBODIMENT 



Relational 
Operator 



Meaning 



NONE This is the last line. Don't read any further. 

DIST>X The distance between Pil (usually the self-object, Ris) 

• and Pi2 is greater than X 

DIST<X The distance between Pil and Pi2 is less than X 

FASTER Pil is moving faster (more units of distance per 
Current Situation) than Pi 2 

SLOWER Pil is moving slower (less units of distance per 
Current Situation) than Pi2 

TOWARD 2 Pil is moving toward Pi2 ("toward" = Radians in the 

Parm field. If the angle of movement is less than the • 
Parm field's radians, Toward is True. Zero radians. is 
East or to the Pight on the screen) 

TOWARD 1 Pi2 is moving toward Pil 

AWAYFR2 Pil is moving away from Pi2 (parenthetical note on 
TOWARD 2 applies here) 

AWAYFR1 Pi2 is moving away from Pil 

>ANGX The angle between Pil and Pi2 exceeds X (X is in 

radians ) 

< ANGX The angle between Pil and Pi2 is less than X (X is in 

radians) 

MOVE>X Pil is moving faster than X 

<LOCX Pil is at a location whose screen X-coordinate is less 

than X 

>LOCX Pil is at a location whose screen X-coordinate is 

greater than X 

<LOCY Pil is at a location whose screen Y-coordinate is less 

than Y 

>LOCY Pil is at a location whose screen Y-coordinate is 

greater than Y 
1CL2BYX Pil is closer to Pi2 than X units of distance 
1FR2CYX Pil is farther from Pi2 than X units of distance 
FEEL The self Pi is feeling as per' what is here set out 



FlQ a 33 

File Uiew Edit Run Setup Stonj Brain 



StoruPftL World: AFRICQ 



□ r 



+Chars . 



Opt ions 
^Char, Nane" 



Situati on " 



Dec i s i on 



Phan t on 



2LouSafeGHome2 
IwpalerHunter 
lLouSafeGlTop 
storable food 
2LouSaf eG2Top 
Drifter-default 
Food to store 
bouncer 



022 
023 
021 

02<> 
027 
028 



Op t ions 



Nane 
Hi ghl I CI oseartt Homel 1 5 



♦ Hi ghl I CI ose8At Hornel I 
AtlfftpalraSeelmpalble 
HighlCloseamTopI 
Athate 

HighllCloseaAtTopII 
AtTopOfScreen 
AtSPDoingEating 
AtObstacle 



{Situation! S i 



R i 1 



R i2 



SELF 
SELF 
SELF 
SELF 
SELF 



Highll 

Homell 

NONE 

NONE 

NONE 



♦ hide 5-* 

throu 33 

copy and do normal 13 

die a renew 13 

copy and do nor ma 1 57 

wrap north to south 157 

die a renew 0 

bounce 60 



Rel-Op Parn 



Next 



0IST<X 

DIST<X 

NONE 

NONE 

NONE 



60 
20 
0 

0. 
0 



AND El 
N00P 
N00P 
N00P 
N00P 



DsD iDecisionl '>yy&\ 



Opt ions 



DsD Nane 



flng 1 € 



Rate 



Do 



R i -Nane Register Ualue 



hide* 

G19 G12 CCFood] 
G19 G12 [Garden] 
plant the [Seed] 
G19 G12 [Seed] 
uater the [Seed] 
G19 G12 [Shed] 
REUSEI 



0 
0 
0 
0 
0 
0 
0 
0 



0 
10 
10 

0 
10 

0 
10 

0 



7 

0 
23 
19 

0 
18 
23 

0 



SELF 

CFood 

Garden 

Garden 

Seed 

Seed 

Shed 

SELF 



IGp 3-4 Do-ings Table 



Doing 
Number 


Doing Description 


Doing 
Nu hi be r 


Doing Description 


-10 


Move the snme way as Ihe "Mil" Ri this lime 
or ih is current situation. Used for "copying" 
some other Thing, as in flocking behavior. 


8 


Bitten 


-9 


Make a buzzing sound 


9 


Pounce 


•8 


Make a beeping sound 


10 


Throw 


-7 


Make random, or randomize a value. 


1 1 


Cnlch 


-6 


When Things move off Ihe top of Ihe screen, 
bring them back (o the bottom of t he screen. 


12 


Fly/Swim 


-5 


Move absolute. A fixed compass setting as 
opposed to some degrees relative to 
something. j 


13 


Satiated 


-4 


Default (On the last page of the Thing \ 
Builder is the Thing's Default action) 


14 


Dead 


-3 


Be dead 


15 


Hide/Sit 


-2 


Move the same as the "Mil" Ri. j 


16 


Light Fire 


-I 


Do what you did the last move (same 
direction and rate) 


17 


Burn 


0 


Normal (This and the following Do-ings) 


18 


Douse Fire 


1 


Chase 


19 


Reach 


2 


Flee 


20 


Door Open 


3 


Hungry 


21 


Table Set 


4 


Hurt 


22 


Sit & IU\\ 


5 


Tired 


23 


Carry 


6 


Bite/Eat 


24 


Cooked 


7 


Rest 


25 


Cloaked (is there and can interact 
and be interacted with, but is 
invisible) 




26 


Using a tool 



FlGo 3 3 



File Uiew Edit Run Setup Story Brain 



StoruPflL Morld: ftFRICfl 









DsD 








Opt ions 


DsD Nane 


Ancj le 


Ra t e 


Do 


Ri-Ni 


ane Register 


Ua 1 ue 




G31 CBotmH 


0 


0 


6 


HIT 


HUNGER 


-50 




die 


0 


0 


H 


SELF 




0 




die a reneu 


0 


0 


-3 


HIT 




0 




urap north to south 


0 


10 


-6 


HIT 




0 




move from Loul 


J 80 


\6 


2 


Loul 




0 




j ump auay 


180 


20 




Hi 


HURT 


100 




G27 CHU 


ISO 


20 


2 


HI 


TIRED 


10 


^1 



FIG= 36 



File Uiew Edit Run Setup StorM Brain 
StoryPflL Morld; QFRICft 



□ l^::x:x:::::::::::v:;:v:::>::::::::::;:;:: 




:>MBtaPf:::>::: 






Op t i ons 


NANE: Lou " 


PAGE: 


1 


ITEM: 21 




Pfs 


NetaPF 


<+> 


MetaPF <-> 




food competitor 
lLouNot Arnbushabl eO-13 
lLou-2 081 
lLou-3 09i 


All - 
Lou 1 


HHT's 
heal/rest 


High 2 groupies 
Hon lou 1 
High 1 groupies 
Lou 2 groupies 


1 



FIG D 3T 7 



File 



Uiew Edit 



Run Setup 
AFRICft 



Story Brain 



StoryPftL 



World: 



Pick one: 



To select behavior, pick up to the stated number from each group: 

LE^fJ 
| Pre"v~| 



■ Li ye-animal-1 ike 
O "-But no metabolism 
□ Live-veqetable-like 
O Mineral-like 
O Mixed/other -like 



Pick no more than 
one per food chain: 



Pick zero to 2: 

O May be eaten 
CD Must eat 



a Top 1st food chain 
■i Hioh " 

□ Lou " 

□ Bot'm " 

□ Too 2nd food chain 
-■Hiqh ; ' 

O Lou 

a Bot'm " 

CNote: StoruPal's 

tuoe is aluaus 

Lou 1st food chain} 



Next [ 



MetaPf 



Lio n 



-Thing 
editor, 
Lion 



Op t i ons 



NAME: High 



PAGEr 



1 



ITEM: 



2-1 



Pfs 



MetaPF <+> 



high 2-* 

2HighNearTopH 
2High-2 
2High-3 
bouncer 



QA7 
088 
038 



All 



HHT's 



MetaPF (-> 



High 1 groupies 
Lou 1 groupies 
Lou 2 groupies 
Hon high 2 



Of 



Opt ions 



+Chars 



+Char . Name 



S itua t i on 



Dec i s i on 



Phan ton 



high 2< 

Ambx'Poi StaysDeadOiS 
Amb^Poi Dies 020 
lLouSafeGHomel 021 
2LouSafeGHome2 022 
Impal er Hunter 023 
ILouSafeGlTop 024 
st or able food 



AtTopII 
Dead 

At Ambusher OrPoi snBtr 

HighlCloseaAtHomel 

HighllCloseaAtHomell 

At I mpal r ftSeel rnpal bl e 

HighlCloseaAtTopI 

AtMate 



die a reneu 65 

die 0 

die 0 

hide 10 

hide 54 

throu 33 

copy and do normal 13 

die 9 reneu H8 



f=IO= 3<S> 



Fi le 



Uit 



Edit Run Setup Storyj Brain 



S toryPflL 



World: AFRI Cft 



Char- 



Opt ions 



Char. Name Register Used 



H in 



Small 
Medi urn 
Large 
Blue 
Whi t e 
Red 

Yellou • 
Mixed hues 
Cool 
Tepid 

Narjn 



SIZE 

SIZE 

SIZE 

BLUE 

BLUE 

RED 

6 RE EN 

GREEN 

HEAT 

HEAT 

HEAT 



© 



1 

86 

171 

1 

128 

1 

1 

128 
1 

86 
171 



85 
170 
255 
127 
.255 
255 
127 
255 
85 
170 
255 



Hungry 
Uer yHungr y 
St ar Ying 
Haxllunger 
AnyHunger 
NotHungry 
Hurt 
Suffer 
AnyHur t 
NeedHealin 
MaxHur t 
Ti r ed 
SI eepy 
NeedRest 
AnyTir ed 
HaxTir ed 



HUNGER 
HUNGER 
HUNGER 
HUNGER 
HUNGER 
HUNGER 
HURT 
HURT 
HURT 
HURT 
HURT 
TIRED 
TIRED 
TIRED 
TIRED 
TIRED 



106 

156 

255 

254 

70 

0 

106 

156 

71 

125 

255 

106 

156 

125 

71 

255 



155 

25-1 

255 

255 

255 

71 

155 

224 

255 

144 

255 

155 

224 

l-H 

255 

255 



Li tingFire 

UsingGTool 

FireOn 

do normal 

Reaching 

Open 

end 



D01 NG 
DOING 
DOING 
DO I NG 
DOING 
DOING 



© 



16 

26 

17 

0 

19 

20 

0 



.10 
17 
0 

13- 
20 
0 
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File Uiew Edit Run Setup Story 


Bra in 




S toryPAL 


World: AFRICA 












x^x':*: Class Edi tor" 










Op t i ons 






Nane 


♦Chars . Chars . 










OnFirePlac 


place to make a fire FireOn 
NONE NONE 
NONE NONE 
NONE NONE 
HONE NONE 











FlG«= 40 







S 


tat us x : x 






Op t i ons 


Nane 


Ualue 


Move 


S topped 


Weight 


Faceh in 


HURT 


37 


-1 


-4 


0 


106 




HUNGER 


83 


2 


1 


0 


106 




TIRED 


0 


2 


-4 


0 


106 




HURTRATE 


-10 


0 


0 


0 


-25 




HUNGERRATE 


0 


0 


0 


0 


-56 




TIREDRATE 


0 


0 


0 


0 


-25 




N0T0RRATE 


13 


• 8 


3 


-100 


1 1 




FEAR 


228 


0 


0 


100 


90 




SURPRISE 


0 


0 


0 


40 


0 




DISAPPOINT 


0 


0 


0 


10 


0 




FRUSTRATED 


0 


0 


0 


10 


0 




HOPELESS 


0 


0 


0 


100 


0 




PAIN/ JOY 


0 


0 


0 


0 


-127 




TOTAL 


215 


0 


0 


0 


0 



















FlG D -4 I 



Huh? < 1 ion) 

<193,153> to <i72,163> Rads: 3.62 
Speed: 24 

Pi: 2High-3 038 Si: 

LouIINear 

Dsd: race to LouII" Do: 1 Rel.Rx: 
deer at <141, \7S> 



FlO a 42 



Enter icon path: 



Set 


pa i n 


thresho Id : 










[ ° k 


)( Mo ) 



Set fear threshold: 



urn 



GE3 CZED 



FIG= 43 



Data Structure 


Created Id Wiodow... 


Found In 
Menu... 


Used Id Other 

Data Structure Window(s)... 


Fi or Ri (Class) 


Class 


Edit 


Situation & Decision 


RF or RI (Char) 


Chars. 


Edit 


Class 


PF or Pf (-rChar) 


+Chars. 


Edit 


Class & MetaPf 


Si (Situation-abstracted) 


Sit ua t ion 


Edit 


+ Char, Problem/Subgoal & Strategy 


Problem/Subgoal 


Problems 


Brain » 


It isn't 


Strategy <& Plans 


Strategy- 


Brain 


Problem/Subgoal- 


Do- ing 


Coded in the program 


none 


Decision 


DsD (Decision) 


Decision 


Edn 


+ Char & Problem/Subgoal 


MetaPf 


Meia-Pf 


Edit 


It isn't 


Focus 


Focus 


Brain 


Problem/Subgoal 
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STEPS IN A COMPUTER PROGRAM FOR 
IMPLEMENTING EMOTIONAL EXPRESSION IN 
AN AUTONOMOUS DECISION SYSTEM 



STORING IN A COMPUTER INFORMATION-STORAGE DEVICE PLANNING DATA 
PROVIDING PLAN CAPABILITY TO SUCH AUTONOMOUS DECISION SYSTEM 



I 



USING INFORMATION REGARDING ENVIRONMENTAL CIRCUMSTANCES 
OF SUCH AUTONOMOUS DECISION -SYSTEM, PROVIDING 
PLANNING SELECTIONS AND PLANNING STATUS . 



I 



USING INFORMATION ABOUT CURRENT SUCH PLANNING 
STATUS, PROVIDING EMOTION - SOURCE DATA 



I 



USING CURRENT SUCH EMOTION-SOURCE DATA, 
PROVIDING CURRENT EMOTION STATUS 



I 



MAKING AND STORING IN SUCH COMPUTER IN FORMAT I ON -STORAGE DEVICE 
A SUBSET OF SUCH PLANNING DATA ABOUT (1) A FIRST PLAN 
REGARDING WHETHER THE SELF OF SUCH AUTONOMOUS DECISION SYSTEM 
IS THEN COPYING WITH A NON-SELF CREATURE OF SUCH ENVIRONMENTAL 
CIRCUMSTANCES, AND (2) A SECOND PLAN REGARDING WHETHER A SUCH 
NON-SELF CREATURE IS THEN COPYING WITH SUCH SELF 



I 



WHEREIN SUCH PLANNING DATA COMPRISES: A SET. OF 
HIERARCHICALLY-ORGANIZED ABSTRACT SELF-PROBLEM 
REPRESENTATIONS, AND IN ASSOCIATION WITH ESSENTIALLY EACH 
OF SUCH ABSTRACT SELF- PROBLEM REPRESENTATIONS, A SET OF 
HIERARCHICALLY-ORGANIZED ABSTRACT SELF-PLAN 
REPRESENTATIONS EACH COMPRISING A SET OF ABSTRACT SELF- 
SUBGOAL REPRESENTATIONS, WHEREIN AT LEAST ONE SUCH 
ABSTRACT SELF-PROBLEM REPRESENTATION IS THE PROBLEM OF 
THE SELF NOT-COPYING WITH A SUCH NON-SELF CREATURE 



T 



FlGa 44A-2 



, L— 

I EVALUATING AN EXTENT OF A SUCH COPYING BY 

I 

(1) MAKING A SIMILARITY COMPARISON OF A DECISION OF A 
SUCH NON-SELF CREATURE WHEN IN A FIRST CIRCUMSTANCE 
SITUATION TO A DECISION OF THE SELF IF THE SELF WERE IN 
SUCH FIRST CIRCUMSTANCE SITUATION 



5 





(2) EVALUATING SUCH COMPARISON FOR DEGREE OF 
SIMILARITY 


DECISION 








INCLUDING IN SUCH EMOTION -SOURCE DATA INFORMATION 
WITH SUCH EXTENT OF A SUCH COPYING 


CORRELATED 



I ^ 

INCLUDING IN SUCH CURRENT EMOTION STATUS A STATUS OF NOT- 
COPYING EMOTION OF SUCH AUTONOMOUS DECISION SYSTEM 

i 

ASSIGNING TO SUCH NON-SELF CREATURE AND STORING IN SUCH 
COMPUTER- INFORMATION STORAGE DEVICE A KIND-NUMBER REPRESENTING 
AN EXTENT OF RELATIVE SIMILARITY OF SUCH NON-SELF CREATURE TQ 
SUCH SELF' S OWN KIND 



4 _ 

ADJUSTING SUCH KIND -NUMBER TO AT LEAST PARTIALLY REFLECT SUCH 

EXTENT OF A SUCH COPYING BY SUCH NON-SELF CREATURE . 



ASSIGNING AN EMOTION AMOUNT, FOR ASSOCIATION WITH SUCH. 
EMOTION- SOURCE DATA EFFECTING SUCH CURRENT EMOTION STATUS OF 
SUCH NOT-COPYING EMOTION OF SUCH AUTONOMOUS DECISION SYSTEM, 
ESSENTIALLY PROPORTIONAL TO A CURRENT SUCH KIND-NUMBER 
ASSOCIATED WITH SUCH NON-SELF CREATURE WHEREIN SUCH EMOTION- 
SOURCE DATA COMPRISES DATA REGARDING FEAR, HOPELESSNESS, AND 
DISAPPOINTMENT, COMPRISING 

I 

(1) INCREMENTAL REPRESENTATIONS OF "FEAR" IN AMOUNTS 
ESSENTIALLY HIERARCHICALLY ORDERED ACCORDING TO SUCH 
HIERARCHICAL SET OF SELF-PROBLEM REPRESENTATIONS 

^SSS 



FiGo -4 -3-A-3 



, l 

(2) INCREMENTAL REPRESENTATIONS OF "HOPELESSNESS 11 ■ • 
DEPENDING ESSENTIALLY UPON WHETHER, IN THE OPERATION OF 
SUCH PLANNING MEANS, IN THE SELF- PLAN REPRESENTATION FOR 
THE HIGHEST ACTIVE HIERARCHICAL SELF-PROBLEM 
REPRESENTATION, NONE OF THE SUBGOAL REPRESENTATIONS IS 
ACTIVE 

i 

INCLUDING IN SUCH EMOTION-SOURCE DATA AN EMOTION AMOUNT, 
ASSOCIATED WITH SUCH PROBLEM OF THE SELF NOT-COPYING WITH SUCH 
NON-SELF CREATURE, WHICH IS STRUCTURED AND ARRANGED TO BE 
ESSENTIALLY PROPORTIONAL TO SUCH KIND-NUMBER ASSOCIATED WITH 
SUCH NON-SELF CREATURE 



PROVIDING SENSOR MEANS FOR PROVIDING SENSOR DATA FOR SUCH 
AUTONOMOUS DECISION SYSTEM '_ 

j 

USING SUCH CURRENT EMOTION STATUS, PROVIDING DATA REGARDING 
BODY EXPRESSION TO PROVIDE OUTPUT SIGNALS FOR USE BY 
EFFECTORS; WHEREIN SUCH DATA REGARDING BODY EXPRESSION 
COMPRISES DATA REGARDING SMILES AND FROWNS 

I 

WHEREIN A SMILE IS ASSOCIATED WITH A CREATURE FEELING COPIED 
WITH AND A FROWN IS ASSOCIATED- WITH A CREATURE FEELING NOT 
COPIED WITH 



3L 

WHEREIN SUCH EMOTION -SOURCE DATA FURTHER COMPRISES A PROVIDER 
OF DATA REGARDING FRUSTRATION, SURPRISE, AND MUSCLE RELIEF 




